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DI 
Nel prossimo numero 
di E Mi PS FÉ 4 L'interfaccia come e perché: lo Spectrum 
sa diventa «computer di casa». 
| oa Formula uno: il disassemblato del 
programma 


ZX81: disegno in prospettiva 


UDG: la seconda puntata, più... 
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IL TELEFONO È 02-437.385 


Lil Mt VIE 
SAI NITTI ALT Ml 


empre con maggiore frequenza si assiste al “fenomeno”, diciamo così, 
S della pirateria del software. Non che la cosa sia nuova, vale comunque 
la pena di spendere qualche parola a tal proposito. 
Per scrivere del buon software giocoso, professionale o gestionale servono 
molte ore di duro lavoro intellettivo, un certo numero di ore di lavoro ma- 
nuale relative alla codifica, oltre al tempo necessario per il test e la corre- 
zione del programma. 
Forse qualcuno di voi si è cimentato nella scrittura di programmi semplici 
o complessi e si sarà reso conto di quanta fatica sia necessaria per la messa 
a punto di un prodotto software. 
Data la premessa è chiaro che pirateggiare, rubando il software altrui per 
venderlo sottocosto è azione degna perlomeno di biasimo se non di azioni 
legali vere e proprie. 
La legislazione italiana non prevede ancora forme di protezione efficaci per 
chi cerca di vivere ed operare onestamente nel settore del software; di con- 
seguenza individui privi di scrupoli e di etica professionale possono “ruba- 
re’ impunemente il prodotto altrui frustrando così ogni possibilità di onesti 
guadagni. 
Un vasto numero di operatori del settore sta organizzando iniziative per re- 
primere questo dilagante malcostume. Per ogni forma di protezione del soft- 
ware messa a punto dagli autori vengono prodotti altrettanti sistemi di co- 
piatura abusiva. 
Una situazione senza fine perpetrata in continuazione a scapito di una qua- 
lificata offerta di validi prodotti. 
Tutto ciò crea la necessità di elevare i prezzi per recuperare, almeno in par- 
te, l'investimento “tempo” speso per l'elaborazione del programma. | mag- 
giori costi gravano, assurdamente, sugli utenti onesti che acquistano rego- 
larmente il programma. 
Una cassetta con un buon gioco per VIC, C64 o Spectrum potrebbe costare 
dalle 3 alle 5,000 lire se questo mercato seguisse le normali regole del 
commercio. 
La prossima volta che qualcuno vi propone l'acquisto di software copiato, 
meditate un attimo al danno provocato da tale gesto e forse, in futuro, allo 
stesso prezzo potrete comprare una copia originale del programma. 


Pietro Dell’Orco 
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NON 
UN ABBONAMENTO! 


UN SUPERABBONA MENTO 


Questo è ciò che la J.soft ti offre: un superabbonamento ad una super-rivista! 
Una eccezzionale offerta di lancio: 13 numeri di SUPERSINC al prezzo 
di 10 oltre alla possibilità esclusiva di ricevere mensilmente, con la copia 
della rivista, il supporto magnetico con tutti i programmi pubblicati. 
L'offerta è valida fino al 20/10/1984. 


LE NOSTRE SUPERPROPOSTE ABBONAMENTI 


Abbonamento* a 13 numeri (2 nel 1984 + 11 nel 1985) 
di SUPERSINC al prezzo speciale di L. 35.000 


Abbonamento* a 13 numeri di SUPERSINC + 13 cassette 
con tutti i programmi pubblicati al 
prezzo speciale di L. 75.000 


*L’abbonamento decorrerà dal prossimo numero 


Abbonarsi è semplice! Effettuate il versamento con l'apposito modulo 
C.C.p. inserito in questo fascicolo, oppure ritagliate il tagliando 
abbonamenti pubblicato in questa pagina e speditelo allegando un 
assegno intestato a: 

J.soft - Via Rosellini 12 - 20124 Milano. 


Tagliando abbonamento a SUPERSINC da inviare in busta chiusa a: 
: J.soft - Via Rosellini 12 - 20124 Milano 


CD) Desidero sottoscrivere un abbonamento a 13 numeri (2 nel 1984 + 11 nel 1985) di SUPERSINC al 
prezzo speciale di L. 35.000 


Desidero sottoscrivere un abbonamento a 13 numeri (2 nel 1984 + 11 nel 1985) di SUPERSINC 
+ 13 cassette con tutti i programmi pubblicati al prezzo speciale di L. 75.000 


O 


cognome 


cap provincia data 


CEI ORE DIRSI 


Stampa o stampante? 


Nei listati dovreste usare una vera stam- 
pante (magari un’Alphacom)... mantene- 
te un filo diretto con l'Inghilterra, visto che 
lì le novità hard e soft (soprattutto soft) 
sono costanti. 


Andrea Rampi - Borgolavezzaro 
(NO) 


Questa lettera è solo un esempio delle 
tante che ci sono pervenute in merito 
alla questione della ‘stampa’ dei lista- 
ti, su cui la maggioranza dei lettori mo- 
stra delle perplessità (soprattutto per la 
probabilità più alta di commettere er- 
rori di composizone). A questo propo- 
sito diciamo a tutti che i listati da noi 
pubblicati NON sono stampati, bensì, 
appunto, “listati” nel senso letterale del 
termine da una stampante professiona- 
le interfacciata con uno dei nostri Spec- 
trum: ragion per cui non avete da teme- 
re nessun errore in quanto i program- 
mi, una volta verificati, vengono listati 
direttamente senza passaggi intermedi. 
Dopo di che l'output su carta viene fo- 
tografato (NON composto) e riprodot- 
to sulla rivista. Su SUPERSINC leggete 
i listati dei programmi esattamente co- 
me escono dalla nostra stampante, sen- 
za manipolazioni di qualsiasi genere. 
Quanto al “filo diretto ”, la J. soft ha di 
recente concluso accordi in base ai qua- 
li ci troviamo da alcuni giorni in posses- 
so di 200 programmi selezionati tra i 
migliori sul mercato britannico, e che 
vi presenteremo numero per numero. 
Oltre a questo, ci verrano fornite, ogni 
mese, le ultimissime novità, così che sa- 
remo in grado di darvi anche qualche 
anterpima (come è già successo, ad 
esempio, per “Cosmic Cruiser”). Vedre- 
te che le sorprese non mancheranno! 


Problemi di carattere... grafico 


Caro SUPERSINC, 
possiedo uno Spectrum 48K e ho un pro- 
blema che mi assilla da mesi. Per defini- 


re un carattere grafico uso il sistema bi- 
nario e guardando i vostri listati mi sono 
accorto che voi usate il seguente modo 
(l'esempio che riporto è tratto dal gioco 
“attacco missilistico): 

10 FOR n=0O TO 39 

20 READ d: POKE USR “a"+n,d 

25 NEXT n 

1000 DATA O,6,6,2,14,150,230,254, 
230... e così via per un totale di 40 nu- 
meri. 

Ora vorrei sapre: 1) Come fate a calco- 
lare i DATA (per esempio, 238)? 2) Il 39 
della linea 10 da cosa dipende? 


Francesco Pertoldi - Roma 


238 (e tutte le altre cifre) sono la tradu- 
zione in decimale (cioè quella che usia- 
mo correntemente) dei loro corrispet- 
tivi in binario; dal punto di vista della 
definzione dei caratteri grafici, il calco- 
latore accetta indifferentemente una 
forma o l’altra — e difatti, nel caso spe- 
cifico, 238 equivale a scrivere BIN 
11101110. La conversione dal binario 
al decimale si ottiene moltiplicando 
ogni cifra per una potenza crescente di 
2 (partendo da destra, il primo numero 
va moltiplicato per 2 elevato allo zero, 
il secondo per 2 elevato alla prima, ec- 
cetera) e sommando tutti i valori così 
calcolati. Il ciclo della linea 10 va da 0 
a 39, dando quindi progressivamente a 
“n” 40 valori. Ognuno di questi corri- 
sponde a uno dei 40 numeri delle linee 
DATA di cui sopra: come abbiamo già 
detto, ogni cifra equivale a un numero 
binario che, nel sistema di definizione 
dei caratteri dello Spectrum, definisce 


un ottavo (una riga) di carattere. Utiliz- 


zando quindi otto numeri per ognuno 
di essi, con 40 numeri definieremo 5 ca- 
ratteri grafici. Per ulteriori spiegazioni 
rimandiamo tutti alla lettura di “UDG: 
ovvero....' di Carlo Panzalis (di cui pub- 
blichiamo in questo numero la prima 
parte), articolo ricco di chiarimenti e ap- 
profondimenti sul tema. 


Per lo ZX81 


Vi raccomando di mantenere la promes- 
sa di inserire nella rivista programmi brevi 
anche per lo ZX81. 


Giovanni Patané - Genova 


Come puoi vedere la promessa è stata 
mantenuta, anche se non riquardava 
la... brevità dei programmi. In ogni ca- 
so, per gli amanti della concisione, con- 
tiamo di pubblicare nei prossimi numeri 
anche alcuni listati per lo ZX81 inespan- 
so (che è dotato, come è noto, di 1K 
RAM). 


L’avventura degli ‘Adventure’ 


Sono un ragazzo di quindici anni appas- 
sionato di computer e videogames. Pos- 
seggo lo ZX Spectrum e devo dire che so- 
no molto soddisfatto delle sue prestazio- 
ni. Vorrei farvi un paio di domande: 1) 
Potete darmi delle spiegazioni sui giochi 
“Adventure” (ne ho uno ma non so farlo 
funzionare: aiutatemi!!!)? 

2) Ho saputo che sono usciti giochi del- 
l’Atarisoft che vanno bene anche sul Sin- 
clair. E vero ? 


Lettera firmata 


Carissimo, 

innanzitutto una raccomandazione: la 
prossima volta metti il tuo nome non 
sulla busta (che viene trattata in gene- 
re piuttosto male dalle nostre segreta- 
rie) ma anche sulla lettera, OK? Venen- 
do alle tue domande, 1) Per poterti da- 
re dei consigli avremmo bisogno di ri- 
eevere qualche informazione in più; ci 
interesserebbe soprattutto sapere qual 
è l'avventura che ti crea questi proble- 
mi. Per consigli generici, invece, non è 
questa la sede adatta: vedremo invece 
di pubblicare uno o più articoli sull’ar- 
gomento. 2) Verissimo. Potrai trovar- 
li in qualunque negozio specializzato e 
aggiornato. 
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Erroracci ed errorini 


Cari amici di SUPERSINC, 

sono uno studentello alle prime armi col 
BASIC ed ho incontrato alcuni problemi 
soprattutto quando ho digitato alcuni 
programmi dal libro “77 programmi per 
lo Spectrum”, e mentre molti di questi gi- 
rano, due di loro (ahi!) mi fanno impaz- 
zire (‘“Roulette” e “Tavole di numeri e let- 
tere”), in quanto pur avendoli controllati 
un sacco di volte non girano. Secondo voi 
di cosa si tratta? Ho sentito dire che ci so- 
no differenze tra i vari modelli dello Spec- 
trum... inoltre vi sarei infinitamente gra- 
to se mi vorreste spiegare dettagliatamen- 
te il procedimento sulla formazione dei 
caratteri definiti dall'utente, in quanto se- 
guendo le istruzioni fornite dal manuale 
in versione italiana a pagina 145 non 
succede niente. 


Giorgio Mangoni - Napoli 


Quei due programmi sono sicuramen- 
te esatti (del resto, ne vengono anche 
pubblicate rispettivamente una scher- 
mata e l'hard copy su stampante), e gli 
eventuali malfunzionamenti sono da at- 
tribuire ad errori di copiatura. Per “Rou- 
lette” sappiamo che molti commettono 
l'errore di scrivere la parte di stringa ‘“()” 
— all’interno della linea 130 — usando 
il tasto ‘“w” con SYMBOL SHIFT invece 
di utilizzare, sempre con SYMBOL 
SHIFT, i tasti “r e “t”. Quanto al secon- 
do, le indicazioni forniteci sono insuf- 
ficienti per azzardare ipotesi, né ci so- 
no pervenute altre segnalazioni da par- 
te dei lettori. Consigliamo comunque di 
non cambiare in minuscole (specie in 
“Roulette’’) le lettere maiuscole presenti 
nelle varie stringhe alfanumeriche. 

In ogni caso, non si tratta di inconve- 
nienti derivanti dall'uso di Spectrum di 
versioni diverse da quella con cui il pro- 
gramma è stato scritto. Le uniche dif- 
ferenze tra le versioni due e tre dello 
Spectrum (quelle in vendita in Italia) ri- 
guardano l’uso della funzione di lettu- 
ra della tastiera IN, che ritorna valori di- 
versi a seconda della versione. Da qual- 
che tempo si trovano in commercio an- 
che due ulteriori elaborazioni della ver- 
sione tre, chiamate 3a e 3b, sulle quali 
non abbiamo per ora informazioni (te- 
nete sempre presente l’anticipo con cui 
viene redatta la rubrica). 

Infine, l’unico errore presente nella spie- 
gazione del manuale è quello di dare un 
carattere grafico definito come forma- 
to da... nove linee BIN anziché otto. Il 
resto del testo è corretto: se tutte le ope- 
razioni descritte vengono compiute sen- 
za commettere errori — ricordarsi di da- 
re il RUN al programmino di inserimen- 
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to! —, entrando in modo grafico e digi- 
rando la ‘“p’ deve apparire il simbolo 
grafico definito (la linea BIN da trala- 
sciare è una qualsiasi di quelle tra la 
quinta e l'ottava comprese), cioè pi gre- 


co. 


Quel QL. co 


Suggerirei di aprire su SUPERSINC una 

rubrica dedicata al QL Sinclair, con qual- 

che piccolo listato... 

Stefano Pini - Vedano al Lambro 
(MI) 


Certamente non mancheremo di dedi- 
care uno, anzi, più di uno spazio all’ul- 
timo calcolatore Sinclair. Nel frattem- 
po, invitiamo i (per il momento) pochi 
lettori che lo posseggono a fornirci no- 
tizie, curiosità, bug e... anche listati. 


Perché niente sport? 


Caro SUPERSINC. 

perché sullo Spectrum non esistono il cal- 
cio e altri sport tipo Commodore? Spero 
molto in una risposta soddisfacente. 


Osfaldo Pagano - Catania 


Lo Spectrum si presta un po’ meno di 
altri computer (‘tipo Commodore’) al- 
la simulazione sportiva, soprattutto per 
limiti intrinseci riguardanti alcune par- 
ticolarità grafiche e, più in generale, la 
velocità. Tuttavia, ciò non è sufficiente 
a giustificare una lacuna così grande, 
tanto più che il software disponibile per 
lo ZX non è certo poco... che dire? In- 
nanzitutto giriamo la proposta alle soft- 
ware house e ai programmatori più ca- 
paci; in secondo luogo, segnaliamo che 
da qualche tempo sono scese in cam- 
po, per quanto riguarda i programmi 
per Spectrum, la Atarisoft e la Activi- 
sion, società notissime nel campo dei 
videogiochi da consolle. La seconda ha 
già creato un Tennis per Spectrum: e 
conoscendo l’inclinazione di queste due 
‘grandi’ verso i giochi ad argomento 
sportivo, possiamo ragionevolmente 
sperare che i loro progetti si sviluppi- 
no anche in questa direzione. Soddisfat- 
to? 


Benedetti manuali! 


Ha da poco comprato lo ZX, e leggendo 

il manuale non ho capito a cosa servono 

le POKE, PEEK e DATA, che mi pare sia- 

no molto importanti. 

Franco Spedale - Desenzano 
(BS) 


Ma davvero il manuale si presenta così 
oscuro? Comunque, l'istruzione POKE 


serve ad introdurre o modificare valori 
numerici presenti nelle singole locazio- 
ni di memoria: per esempio, POKE 
23609,255 inserisce il valore 255 all’in- 
terno della locazione 23609, che per in- 
ciso regola il... beh, chi non lo sa già 
provi a vedere! PEEK serve a leggere il 
valore di una locazione: nel caso di cui 
sopra, è possibile sapere che valore è 
stato inserito nella locazione 23609 fa- 
cendo, appunto, PRINT PEEK 23609, 
che visualizzerà il valore 255 (o il nu- 
mero in quel momento presente in 
23609). Quanto a DATA, quest’istruzio- 
ne serve a inserire in un programma li- 
ste di numeri, o stringhe alfanumeriche, 
che verranno lette dal programma stes- 
so al momento opportuno mediante l’i- 
struzione READ. Non ci addentriamo in 
spiegazioni più approfondite, non es- 
sendo questa la sede più opportuna; vi 
diciamo però che stiamo realizzando 
una rubrica che analizzerà approfondi- 
tamente un comando alla volta di quelli 
disponibili nel Basic Sinclair, che spe- 
riamo potrà chiarire dubbi e interroga- 
tivi a chi non riesce a districarsi nelle 
(non sempre, però) un po’ ermetiche 
spiegazioni del manuale (specie quello 
in edizione italiana, dove figura qualche 
piccolo errore assente nell'edizione ori- 
ginale). 


La nave del destino 


Spettabile Redazione, 

sarei lieto se potesse pubblicare questo 
appello che riguarda la cassetta-gioco 
“The Ship of Doom”, un adventure game 
che ho avuto in omaggio insieme all’e- 
spansione di memoria per lo Spectrum: 
come si fa a prendere la chiave da sotto 
la campana di vetro? Ho provato col la- 
ser (che ho trovato in una stanza), ma do- 
po aver dato il comando ‘spara sul ve- 
tro" il computer risponde che “tutto l’in- 
volucro è stato distrutto” e non c'è più 
traccia della chiave, indispensabile per 
proseguire. Che senso ha la frase “non 
ti fidare delle donne" che il calcolatore dà 
come risposta al comando “help” quan- 
do si è nella stanza col corpo congelato? 


Giovanni Amietta - Milano 


Purtroppo non abbiamo mai avuto oc- 
casione di giocare a “The Ship of 
Doom”, e quindi non possiamo essere 
molto di aiuto, tranne per girare l’appel- 
lo a chi ci legge. Abbiamo compiuto un 
rapido sondaggio tra redazione e uffi- 
cio grafico per saperne di più circa il 
senso della frase “non ti fidare delle 
donne”, ma i risultati ottenuti sono 
completamente impubblicabili.... 


Per collaborare a SUPERSINC 


La maggior parte dei seguenti suggerimenti ha lo scopo di migliorare l'accuratezza e la velo- 
cità di pubblicazione di un articolo; rispettando questi consigli si accresceranno le probabi- 
lità che un vostro lavoro venga pubblicato. La rivista è interessata ad articoli e programmi 
riguardanti la linea Sinclair. Siamo più interessati al contenuto di un articolo piuttosto che 
al suo stile, e soprattutto gli articoli devono essere chiari ed esaurienti. La seguente guida 
permetterà che le vostre buone idee e i vostri programmi vengano più facilmente accettati 


per la pubblicazione: 


1 l'angolo superiore sinistro della prima pagi- 
na dovrà contenere: nome, cognome, indi- 


rizzo, numero telefonico, codice fiscale e da- 


ta di spedizione, luogo e data di nascita. 
2 l'angolo superiore destro della prima pagina 
dovrà contenere il nome del computer al 
quale il lavoro si riferisce, unitamente alla confi- 
gurazione richiesta (memoria occorrente, even- 
tuali periferiche e così via). 
3 il titolo sottolineato dell'articolo dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 
4 le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’ango- 
lo superiore destro contenga un'abbreviazione 
del titolo e del cognome, unitamente al numero 
di pagina progressivo. Per esempio, Horace 
Goes.../Brambilla/2. 
tutte le linee del testo dell'articolo dovranno 
essere battute con spazio 2 o spazio 3, e un 
margine di circa un centimetro dovrà trovarsi ad 
entrambi i lati dello scritto. 
dovrà essere usata una carta formato A4 e lo 
scritto dovrà occupare un solo lato del fo- 
glio (caratteri maiuscoli e minuscoli). 


ri i fogli dovranno essere uniti con una clip. 
& avendo intenzione di spedire più di un arti- 

colo, questi dovranno essere inviati separa- 
tamente insieme alla rispettiva copia su suppor- 
to magnetico. 

programmi brevi (meno di 20 linee) potran- 

no essere inseriti nel testo, mentre program- 
mi più lunghi dovranno essere listati separata- 
mente. E ESSENZIALE per noi disporre di una 
copia del programma registrata più volte su 
supporto magnetico, su entrambi i lati dello 
stesso. E preferibile usare nastri di buona quali- 
tà e di lunghezza non eccessiva; la cassetta o la 
cartuccia per Microdrive dovranno essere eti- 
chettati con il nome dell’autore, il titolo dell’ar- 
ticolo, il computer interessato e soprattutto le 


eventuali espansioni richieste. Come suggeri- 
menti di programmazione, si consiglia di usare, 
per esigenze di stampa listati, le istruzioni INK, 
PAPER, INVERSE piuttosto che scrivere diretta- 
mente in INVERSE VIDEO. Un rapido controllo 
dei programmi per operare queste sostituzioni 
sarà da noi estremamente apprezzato. 
1 per maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio 
RETURN, LIST, RIND, PRINT etc.). Se si desidera 
evidenziare una parola, è preferibile sottolinear- 
la piuttosto che scriverla in carattere maiuscolo. 
1 1 gli articoli ed i programmi potranno avere 
qualsiasi lunghezza — da una routine di 
una sola linea fino a programmi molto comples- 


si. 

1 > SE includere fotografie, queste do- 
vranno essere in formato 24 x 36, o 6 x 6, 

in bianco e nero o diapositive. 

1 37% prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

1 4i compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 

all'interesse del programma (da un minimo di L. 

50.000 a un massimo di L. 300.000). Il paga- 

mento è effettuato in caso di pubblicazione del 

lavoro. 

1 5! materiale ricevuto e non pubblicato non 
verrà restituito. 


Spedite i vostri lavori a: 
SUPERSINC 

Via Rosellini, 12 

20124 Milano 


e saremo lietissimi di pubblicare i contributi mi- 
gliori. 


La Redazione 
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Illustrazione e critica della rivolu- 
zionaria (e discussa) memoria di 
massa sviluppata dalla Sinclair 


rmai facilmente reperibili in tut- 

ta Italia, i famosi e tanto attesi Mi- 
crodrive hanno trovato un folto pubbli- 
co di entusiasti ed uno, forse ancora 
più numeroso, di dubbiosi. 
Molti sono infatti coloro che si chiedo- 
no se non si tratti, dopotutto, di una 
specie di ‘super registratore”; di qual- 
cosa che, comunque, non giustifica 
una spesa di oltre trecentomila lire 
(per una sola unità). 
Non è certamente nostra intenzione 
decidere per voi se sia il caso o meno 
di dotare il vostro Spectrum di questa 
nuova periferica; cercheremo soltanto 
di fornirvi gli elementi, che riteniamo 
obiettivi poiché provenienti da 
un'esperienza pratica di ormai quattro 
mesi, perché possiate giudicare voi 
stessi. 


Cosa sono 

Nel corso della lunga gestazione dei 
Microdrive una ridda di informazioni, 
provenienti da fonti attendibili o pre- 
sunte tali, ha contribuito a confondere 
non poco le idee di noi poveri mortali 
in attesa. Quando, finalmente, abbia- 
mo avuto in mano il prodotto funzio- 
nante, ci siamo resi conto che dalla pri- 
ma idea di Clive Sinclair molta acqua 
era passata sotto i ponti del Tamigi; e 
molte cose erano cambiate. 

Il sistema Microdrive-interfaccia 1 (il 
primo non può infatti funzionare senza 
la seconda) è una periferica per l’archi- 
viazione di masse di dati, cioè una me- 
moria di massa, con velocità di funzio- 
namento (cioè nel “registrare” e ‘’resti- 
tuire” le informazioni) e flessibilità di 
uso (cioè il numero di modi diversi in 
cui le informazioni possono essere or- 
ganizzate nel suo interno) di gran lun- 
ga più elevate rispetto ad un registrato- 
re a cassette. 
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Cosa cambia 
con i Microdrive? 


di Marcello Spero 


Come sono fatti 

Il Microdrive in sé per sé, cioè il ‘“pac- 
chetto di sigarette”, rappresenta la par- 
te meccanica del sistema; è sostanzial- 
mente un registratore molto veloce, 
che usa cassette senza fine (con gli 
estremi del nastro uniti) come il vec- 
chio ‘stereo 8” di buona memoria. 

Le cassettine, chiamate cartucce, han- 
no una struttura interna veramente 
semplice anche se, a nostro giudizio, 
non completamente affidabile. Il na- 
stro, lungo circa 5 metri ed alto solo 
1,5 mm., è unito ad anello ed avvolto 
su di una bobina in nylon che presenta 
inferiormente un largo piatto di conte- 
nimento, mentre superiormente ha un 
bordo inclinato. Esso viene dunque 
preso dal centro della bobina, posizio- 
ne in cui sporge dall'alto grazie al bor- 
do inclinato; passa attorno ad una pri- 
ma rotella e quindi, tenuto teso da un 
feltrino a molla come quelli delle cas- 


sette, è portato anteriormente a con- 
tatto con la testina del Microdrive. A 
questo punto incontra una seconda ro- 
tella, che sporge dall’involucro della 
cartuccia, e sulla quale fa presa il cap- 
stan in gomma del motore. Infine rien- 
tra e viene riavvolto sulla parte esterna 
della bobina. 

Come abbiamo detto, questo sistema 
non sembra dare eccessive garanzie; 
prova ne è il blocco di una delle nostre 
cartucce, causato da un tremendo e ir- 
rimediabile ‘arrotolamento’ interno 
del nastro. Bisogna comunque dire 
che si è trattato di un caso isolato, e 
potremmo anche essere stati partico- 
larmente sfortunati. 

Oltre a non dover essere mai riavvolto, 
il nastro scorre con velocità tale da far- 
lo passare tutto davanti alla testina 
ogni sette secondi circa: è questo per- 
ciò il tempo massimo di ricerca. 

La parte elettronica che pilota il Micro- 


drive è contenuta nell'interfaccia 1, 
che come senz'altro saprete è di forma 
piatta e si colloca al di sotto dello 
Spectrum, inclinandolo in avanti. Col- 
legata al computer tramite il solito 
connettore a pettine posteriore, si col- 
lega al primo Microdrive per mezzo di 
un cavo piatto flessibile a 16 poli (un 
po’ corto, in verità); le eventuali ulte- 
riori unità, fino ad un totale di otto, 
vengono collegate l'una all'altra in mo- 
do rigido, per mezzo di una doppia spi- 
na, e bloccate con una staffa avvitata, 
per evitare improvvisi distacchi. Le 
possibilità dell'interfaccia 1 non si li- 
mitano comunque alla gestione dei Mi- 
crodrive; in essa sono compresi anche 
due mezzi di collegamento con l’'ester- 
no: un'interfaccia seriale RS232 ed una 
per il collegamento di più Spectrum in 
rete locale. Di queste possibilità parle- 
remo comunque in un prossimo artico- 
lo, riservando questo al Microdrive. 


Come funzionano 

Il collegamento del complesso 
Microdrive-interfaccia 1 rende operati- 
vi tutti quei comandi, posti sotto la pri- 
ma fila di tasti, che finora davano, se 
usati, errori di vario tipo; inoltre con- 
sente l’uso di alcuni dei normali co- 
mandi in forme nuove, prima non ac- 
cettate. Dei nuovi comandi parleremo 
fra un attimo; ora ci interessa analizza- 
re come sia stato possibile rendere 
operativo qualcosa che per il BASIC 
dello Spectrum era errore. 

La sintassi dei nuovi comandi, nonché 
delle nuove versioni di quelli ‘vecchi’, 
è contenuta, insieme ad una valanga di 
informazioni riguardanti la manipola- 
zione dei dati da e per i Microdrive e le 
altre linee (RS232 e rete), in una ROM 
da 8K contenuta nell'interfaccia 1. 

Il problema di far “convivere” queste 
due ROM è stato risolto in un modo a 
dir poco originale; ogni volta che la 
CPU dello Spectrum tenta di eseguire 
le routine della ROM (quella originale) 
all'indirizzo 0008 esadecimale (si trat- 
ta della routine di errore) o 1708 esa- 
decimale (riguarda la chiusura di un 
canale), l'interfaccia 1 se ne accorge e 
porta a livello alto la linea ROMCS, fa- 
cendogli così letteralmente “sparire” 
la ROM originale della memoria. Al 
suo posto collega la nuova ROM, detta 
appunto ‘fantasma’; se l'errore che 


stava per essere segnalato con un mes- 
saggio della vecchia ROM riguarda 
uno dei nuovi comandi, o la chiusura 
di un canale riguardante il complesso 
interfaccia-Microdrive, la ROM fanta- 
sma resta collegata per il tempo neces- 
sario a compiere tutte le operazioni re- 
lative. Terminato il suo compito, le 
viene nuovamente sostituita la ROM 
originale, che si occuperà dell’istruzio- 
ne successiva. Nel caso l'errore sia in- 
vece “davvero” un errore, che oltretut- 
to non riguarda i nuovi comandi, il ri- 
torno alla vecchia ROM è immediato, e 
la routine di errore riprende. 

Questo sistema mette a disposizione 
dello Spectrum una quantità notevole 
(8K) di nuovo ‘materiale’ su cui lavo- 
rare. Per gli errori riguardanti le nuove 
Operazioni infatti, è presen- 
te una valanga di messaggi, che copro- 
no ogni eventualità. La particolare 
struttura di analisi degli errori della 
nuova ROM, inoltre, consente al pro- 
grammatore esperto (ma tutti possono 
diventarlo...) l'aggiunta di nuove istru- 
zioni da lui create; di questo ci occupe- 
remo diffusamente in futuro, dando la 
possibilità di usufruire di qualche utile 
istruzione extra anche a quanti non 
hanno la voglia o il coraggio di cimen- 
tarsi nell'impresa. 

Malgrado una struttura operativa tanto 
complessa, il funzionamento dello 
Spectrum esteso (cioé con interfaccia 
e Microdrive) è estremamente traspa- 
rente per l'utilizzatore. Non ci è mai ca- 
pitato che un file (cioé un blocco) di 
dati o di programma fosse stato regi- 
strato in modo difettoso. Può succede- 
re invece, ma si tratta di un problema 
senza grande importanza, che in una 
cartuccia quasi piena un file non venga 
trovato che dopo un certo numero di 
passaggi; ci è anche capitato di ottene- 
re dei cataloghi (maggiori spiegazioni 
su questo fra poco), con cartucce piene 
di un gran numero di file molto corti, 
in cui mancavano i nomi di alcuni file, 
peraltro regolarmente registrati e recu- 
perabili. 

Per quanto riguarda la durata delle car- 
tucce, un argomento che ci aveva tro- 
vato dubbiosi, non c'é proprio niente 
da eccepire: il nostro accanimento si è 
infatti concentrato su una cassetta, che 
è stata usata per una media di cinque 
operazioni di i/o al giorno, per cinque 


DOSSIDITI 


giorni alla settimana, per quattro mesi 
(escluse le ferie, naturalmente!), senza 
dare ancora nessun segno di ‘“stan- 
chezza”, che il manuale descrive come 
un generale allungamento nei tempi di 
ricerca. 


Come si usano 

La prima cosa da fare con una cartuc- 
cia nuova è formattarla; questa opera- 
zione serve a predisporne lo spazio in 
maniera adatta a ricevere i dati. L'istru- 
zione per. questo è FORMAT 
“m’;1;‘nome”, a nostra scelta; duran- 
te questa operazione, che dura una 
trentina di secondi, tutto il nastro vie- 
ne controllato alla ricerca di eventuali 
punti danneggiati, che saranno con- 
trassegnati in modo da non essere mai 
utilizzati. Almeno un punto inutilizza- 
bile c'é sempre, ed è la zona di giunzio- 
ne delle estremità del nastro. Al termi- 
ne compare sullo schermo l’ammonta- 
re di spazio disponibile nella cartuccia 
formattata; questo può variare da un 
massimo di oltre 100K ad un minimo 
garantito di 85K. Non ci è capitato di 
vedere né l’una né l’altra situazione; la 
media delle cartucce si aggira infatti 
intorno ai 90-95K. Se dovesse capitar- 
ne una con quantità sensibilmente in- 
feriori di spazio, provate a formattarla 
di nuovo: potrebbe darsi (ci è succes- 
so) che una zona rovinata sia caduta a 
cavallo di due settori (il nastro viene 
diviso dalla formattazione in settori, 
ciascuno della capacità di 512 byte), 
rendendoli entrambi inutilizzabili; un 
nuovo processo può in questo caso mi- 
gliorarne (anche di 2K) le cose. 
L'istruzione CAT 1 (0 2,3... a seconda 
del Microdrive che vogliamo indicare) 
serve invece ad ottenere il catalogo 
della cartuccia inserita, cioé l'elenco, 
in ordine alfabetico (fantastico!) dei fi- 
le, di tutti i tipi, presenti in quel mo- 
mento; in coda viene indicato il nume- 
ro di byte ancora liberi, espressi in K. 
Tutti i comandi cui eravamo abituati 
con il registratore esistono anche per il 
Microdrive, avendo cura di interporre 
fra il comando e il nome del file (che 
qui è sempre obbligatorio, non solo 
durante SAVE) la sequenza *‘“m”;1; ad 
indicare che l'operazione riguarda l’in- 
terfaccia (*), che il destinatario è un 
Microdrive (‘m”), e che si tratta del nu- 
mero 1 (1); quest'ultimo va indicato 
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anche se si possiede un solo Microdri- 
ve. | vari SAVE, LOAD, con o senza 
CODE, DATA, e così via, hanno lo 
stesso uso e significato di prima; per 
quanto riguarda VERIFY, sebbene sia 
regolarmente utilizzabile, da molto 
tempo non lo usiamo più: infatti le pro- 
babilità che qualcosa vada storto qui 
sono veramente infime. Nella remota 
eventualità che questo succeda, esiste 
un raffinato messaggio di errore a pro- 
posito: Verification has failed, la verifi- 
ca è fallita. 

Dove la differenza c'é invece, eccome, 
è nella velocità: qualche secondo per 
programmi di una decina di K o array 
di più di mille elementi, un istante 
(davvero impressionante) per uno 
schermo; il tempo risparmiato, nel ca- 
so di un uso intenso, è realmente note- 
vole. 

Veniamo adesso a tutta la parte inedita 
dei comandi, quelli che rendono i Mi- 
crodrive simili a dei floppy e lo Spec- 
trum espanso un sistema enormemen- 
te più potente di quello inespanso. 
Con l'istruzione OPEN #6; “m”;1;‘pip- 
po” si apre un file (il manuale lo chia- 
ma “file dati” per distinguerlo dai ‘file 
programma”, ma anche gli array sono 
file di dati, pur essendo molto diversi 
da questi) di nome “pippo” e lo si asso- 
cia al canale 6; in esso di potrà ‘’scrive- 
re” ciò che si vuole, numeri o caratteri, 
o tutte e due le cose insieme. con 
l'istruzione PRINT #6; seguita da varia- 
bili numeriche, variabili stringa, numeri 
o stringhe. Terminata la scrittura il file 
verrà chiuso con CLOSE #6. Riapren- 
dolo successivamente, con l'istruzione 
uguale a quella vista prima, non sarà 
più permesso scrivere (provateci, e ve- 
drete che messaggio...) ma si potrà leg- 
gere ciò che era stato immesso prece- 
dentemente, con INPUT #5;... seguito 
dalla o dalle variabili, che dovranno 
concordare per tipo (numeriche o strin- 
ghe) con i dati che devono ricevere. E 
ovviamente possibile tenere aperti con- 
temporaneamente più file, alcuni in 
scrittura (cioè appena creati), altri in let- 
tura, e passare con INPUT # e PRINT 
# dei dati dell'uno e all’altro. 
Volendo fare “piazza pulita” di tutti i fi- 
le rimasti aperti, si può usare CLEAR 
#, ma solo se si tratta di file in lettura. 
Usato per file in scrittura ne distrugge- 
rebbe la parte di dati non ancora invia- 
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ta al Microdrive; l'invio di dati, infatti, 
avviene solamente quando il loro volu- 
me ha raggiunto i 512 byte (cioé la ca- 
pacità di un settore), o alla chiusura 
del file stesso. Con questo tipo di file è 
possibile anche un altro tipo di opera- 
zione, che potremmo definire ‘lettura 
automatica totale”. Consiste nella tra- 
scrizione dell'intero file in un altro; 
l'istruzione relativa è MOVE 
“m’;1;‘pippo” TO “m;1;“carlo” nel 
caso nessuno dei due file sia stato 
aperto (in questo caso apertura succes- 
siva e successiva chiusura avvengono 
automaticamente), o MOVE #4 TO #6 
per file aperti e associati quindi a dei 
canali. Come molti di voi sapranno, lo 
Spectrum vede anche schermo, tastie- 
ra e stampante come file, associati dal 
sistema ai canali 2, 1 e 3, rispettiva- 
mente; questo consente di far stampa- 
re il contenuto di un file su schermo o 
stampante semplicemente con MOVE 
“m';1;“pippo” TO #2 (oppure #3), co- 
sa estremamente utile. 


A cosa possono servire 
Voremmo a questo punto spendere 
due parole per chiarire la differenza 
che passa fra l’uso di file “array” e l’uso 
di file dati. Supponiamo di voler me- 
morizzare un elenco di nomi e numeri 
telefonici, per richiamarli all’occorren- 
za. Dovendo usare un file “array” do- 
vremmo avere un elenco completo dei 
nomi in memoria, in un insieme di ca- 
ratteri (o array stringa che dir si 
voglia), e quindi memorizzarlo; per i 
numeri telefonici abbiamo due possi. 
bilità: memorizzarli come numeri con 
un separato insieme numerico, o trat- 
tarli come caratteri e metterli nello 
stesso insieme dei nomi. In ogni caso, 
comunque, dovremmo aver tutto il no- 
stro archivio contemporaneamente in 
memoria, e la stessa cosa succederà al 
momento di richiamarlo per utilizzar- 
lo. Questa situazione comporta serie li- 
mitazioni, dovute alla possibilità di 
memoria, nel numero massimo di no- 
minativi del nostro elenco; tenete con- 
to che dovrà esserci necessariamente 
anche un programma, in memoria, 
perché l'archivio possa servire a qual- 
cosa, e questo programma occuperà 
anche lui la sua fetta di spazio. 
Usando un file dati, invece, potremmo 


n 
‘ 


memorizzare ogni singolo nominativo, 
inviando con PRINT # la relativa strin- 
ga, seguito dal suo numero telefonico, 
inviando sempre con PRINT # la varia- 
bile numerica che lo contiene. In que- 
sto modo non avremo mai in memoria 
più di un nome ed un numero. Per re- 
cuperare un determinato nominativo, 
poi, basterà leggere dal file, uno alla 
volta, i vari nomi, usando sempe la 
stessa variabile per non accumularli in 
memoria, fino a trovare ciò che ci inte- 
ressa, Volendo invece l’elenco comple- 
to dei nominativi in archivio, magari 
su stampante, basterà usare MOVE, 
senza bisogno di impiegare memoria. 
Limiti all’ampiezza dell'archivio: nes- 
suno, o meglio la capienza di una car- 
tuccia, disponendo di un Microdrive; vi 
sfido comunque a riempire 90K con un 
elenco di nomi e indirizzi... 

Da questo esempio emerge come i Mi- 
crodrive possano essere particolar- 
mente utili ai possessori di uno Spec- 
trum 16K, che sentono più forti le limi- 
tazioni di memoria. C'è però un parti- 
colare cui occorre prestare attenzione; 
per ciascun file aperto occorre in me- 
moria uno spazio pari a circa 600 byte 
per il buffer (area di accumulo dei dati 
in attesa di essere inviati), la mappa e 
le nuove variabili di sistema. Fate 
quindi bene i vostri conti, perché di 
memoria libera nel 16K non c'è né 
molta (10K scarsi) e i Microdrive sono 
fantastici quando hanno lo spazio suf- 
ficiente per funzionare, ma possono 
creare un'infinità di problemi (li abbia- 
mo sperimentati simulando una me- 
moria piena con l'abbassamento della 
RAMTOP) se subiscono costrizioni. 


Conclusione 

Il salto qualitativo che lo Spectrum 
compie con l'adozione dei Microdrive 
è indubbiamente notevole; si passa in- 
fatti da un suo uso forzatamente “gio- 
coso” alla possibilità di renderlo utile 
per tanti impieghi ‘seri’. 

Purtroppo l'impostazione data al mer- 
cato italiano degli “home”, propagan- 
dati praticamente come videogiochi 
non ha portato gradualmente l’utilizza- 
tore a sentire la necessità di cimentarsi 
in usi più sofisticati e costruttivi delle 
loro macchine come è avvenuto 
all'estero (Britannia docet). Il prezzo 
delle cartucce, poi, non è che aiuti... 


LA 


Kosinteti de dda) RI 


Decido, quindi sono... 
un computer 


Come i calcolatori (e i computer 
Sinclair in particolare) eseguono 
test per poi prendere una decisio- 
ne in base al risultato. 


os'è un linguaggio di programma- 
Uisioneo O meglio, che cosa qualifica 
un linguaggio di programmazione co- 
me tale? La risposta è: la sua capacità 
di compiere dei test e successivamente 
compiere azioni strettamente legate 
all'esito degli stessi. Da qui partono le 
fondamenta di tutti i linguaggi di pro- 
grammazione, e questo è il punto di 
inizio a partire dal quale è possibile 
programmare i calcolatori in modo ta- 
le che essi possano avere un comporta- 
mento flessibile di fronte alle più sva- 
riate situazioni. 
Per chiarire le cose, occorrerebbe 
guardare un programma BASIC sotto 
due punti di vista differenti - uno ri. 
guardante l'aspetto fisico del program- 
ma, e l’altro il suo aspetto logico. Il 
programma uno, semplicissimo ed 
elementare, chiede all'operatore di in- 
serire due numeri che vengono succes. 
sivamente addizionati, sottratti e mol- 
tiplicati fra di loro, dopo di che il cal- 
colatore provvede a stampare i vari ri- 
sultati. 
Notate che in questo programma non 
vengono prese decisioni di alcun gene- 
re, e che la sequenza delle varie opera- 
zioni compiute cioé il “diagramma di 
flusso” segue rigorosamento un anda- 
mento “top-down”, ossia dall'alto ver- 
so il basso. Ciò significa che questo 
programma non è molto fessibile; può 
infatti eseguire solamente le operazio- 
ni che noi abbiamo precedentemente 
programmato, utilizzando dati come i 
numeri che gli vengono forniti per 
mezzo delle istruzioni INPUT. 


Costrutti di controllo 

Il programma due presenta una certa 
differenza dal precedente. Abbiamo in- 
fatti introdotto il costrutto “IF 
condizione/i THEN azione/i”, così che 
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possiamo cominciare a confrontare i 
dati che vengono immessi, per poi ef- 
fettuare determinare azioni sulla scor- 
ta dei risultati dei nostri test. Notiamo 
però due cose: primo, l'andamento (il 
flusso) del programma è ancora di tipo 
sequenziale, dall'alto in basso; secon- 
do, l'istruzione IF viene usata in modo 
abbastanza primitivo. E possibile uti- 
lizzarla molto meglio, come si può ve- 
dere nel listato numero tre. In esso, in- 
vece di usare il costrutto IF... THEN per 
compiere una sola azione in seguito 
all'esito del test (come accadeva nel 
programma due), vengono usate dopo 
THEN istruzioni GO TO o GOSUB, che 
danno luogo ai cosidetti salti condizio- 
nati; con essi, il risultato del test porta 


all'esecuzione di un determinato grup- 
po di linee di programma. 

I calcolatori Sinclair (con l'eccezione 
dell'ultimo QL) non offrono molti co- 
strutti di controllo, per fornire unica- 
mente l’essenziale. Altri computer, in- 
fatti (ad esempio l’Acorn BBC, diffusis- 
simo in Gran Bretagna ma praticamen- 
te assente dalle nostre parti) lavorano 
su dialetti BASIC molto più dotati a 
questo proposito; il BASIC Sinclair è 
comunque sufficiente per consentirci 
di emulare istruzioni da esso non pre- 
viste. 

Per quanto riguarda lo ZX81, l’istruzio- 
nei IF ha la forma “IF condizionef/i 
THEN azione”. E possibile usarla per 
determinare l'esecuzione di gruppi di 
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linee a piacere, “chiamandole” attrave- 
reso GOSUB o GO TO. Una terza istru- 
zione utilizzabile è la USR, che chiama 
le linee desiderate attraverso il lin- 
guaggio macchina, per poi ritornare al 
BASIC. 

Ciò è realizzabile ordinando l’esecuzio- 
ne delle variabili mediante la linea LET 
A= USR N, dove A è la variabile nume- 
rica e N l'indirizzo di partenza del pro- 
gramma. Terminata l'esecuzione di 
quest’ultimo e restituito il controllo al 
BASIC, alla variabile verà assegnato il 
valore contenuto nella coppia di regi- 
stri BC. 

Può sembrare una cosa sostanzialmen- 
te inutile ma se, per esempio, dispone- 
te di una velocissima routine di genera- 
zione di numeri casuali scritta in lin- 
guaggio macchina, potete utilizzarla 
nella maniera sopra descritta con un 
sensibile risparmio di tempo, sempli- 
cemente predisponendo la memorizza- 
zione di numeri generati in BC. 


E lo Spectrum? 

Quanto detto finora si applica anche 
allo Spectrum, sia pure con qualche 
differenza. Intanto, diversamente da 
quanto accadeva sullo ZX81, sono am- 
messe linee contenenti più di una azio- 
ne (vedere il diagramma 1); in più, la 
funzione USR ha qui anche un altro uti- 
lizzo connesso, come forse sapete, alla 
generazione dei caratteri grafici. 

Ora, tornando in argomento, cos'é 
esattamente una “condizione” e cosa 
ha a che fare con le decisioni? Per co- 
minciare, è meglio esaminare l’intera 
struttura del costrutto IF...THEN...EL- 
SE, dimenticandoci per un attimo del- 
le limitazioni di ZX81 e Spectrum. 
Quando, durante l’esecuzione del pro- 
gramma, viene raggiunta una linea co- 
me IF a=b THEN..., il computer con- 
fronta tra loro le due variabili e, se non 
sono uguali, ignora completamente il 
resto della linea, qualunque sia il nu- 
mero di istruzioni in essa contenuta, 
per passare a quella successiva. Que- 
sto esempio, per lo Spectrum, servirà a 
chiarire le cose: 


10 LET a=1 
20 IFa=2 THEN PRINT a: PRINT “OK” 
30 PRINT “LINEA SUCCESSIVA” 


(sullo ZX81 è sufficiente eliminare 
PRINT “OK”). In esecuzione, l’esito del 
test sarà negativo e il valore di a non 
verrà stampato, né lo sarà la scritta 
“OK”, e il programma passerà alla li- 
nea seguente. In tutto questo, ripetia- 


Diagramma 
1 


ZX81 


La 
condizione 
è vera 


Linea 
successiva 


SPECTRUM 


La 
condizione 
è vera 


Istruzione 


Istruzione 


Linea 
successiva 


mo l’unica differenza tra lo Spectrum e 
ZX81 sta nel fatto che il primo può ave- 
re più di una istruzione dopo una IF, 
come è visibile nel diagramma. In real- 
tà il computer, analizzando una condi- 
zione, non sta controllando se, per di- 


re, A*10=1 o “Pinuccio” () “Carletto”; 
ciò che sta facendo è una comparazio- 
ne che darà come risultato “vero o fal- 
so” o, per essere più precisi, ‘“1”o “0”. 
Questo vale sia nel caso di un unico 
test come in linee più complesse come 
IFa=b ANDc=dTHEN...: per quante 
analisi vengano fatte il risultato finale 
sarà uno solo. 

Dando a un esito “vero” il valore 1 e ad 
un esito “falso” il valore 0 possiamo 
ora considerare cosa accade quando 
abbiamo una condizione che contenga 
un operatore logico - AND, OR, o NOT. 
Prendiamo quattro variabili a, b, c, d, 
con valore a= 1, b=1, c=2, d=3; e 
adesso proviamo a vedere cosa succe- 
de analizzando un delle forma IF a=b 
AND c=d THEN... Per prima cosa vie- 
ne eseguito il test su a e b, che risulta 
vero (cioé 1), mentre il secondo test è 
falso - poiché c’è evidentemente diver- 
so da d- e ritorna il valore 0. Siccome 
l'operatore logico AND richiede che 
per dare come risultato 1 gli operandi 
(nel nostro caso i due test) valgano en- 
trambi 1, la nostra condizione è falsa, 
ed ha un valore 0. Ecco la “tabella del- 
la verità” completa (gli insofferenti nei 
confronti dell'algebra booleana trat- 
tengano il fiato per trenta secondi...) 
valida per l'operatore AND: 


IF 0 AND 0 THEN 0 
IF 0 AND 1 THEN 0 
IF 1 AND 0 THEN 0 
IF 1 AND 1 THEN 1 


Potete vedere come il terzo elemento 
della tabella rappresentanti il caso che 
abbiamo appena considerato. 

Ecco ora la tabella della verità per 
l'operatore OR: 


IF 0 OR 0 THEN O 
IF 0 OR 1 THEN 1 
IMTORO III 1 
FIORI TRENI 


L'operatore NOT non fa altro che in- 
vertire l'esito del nostro test: NOT 1 è 
uguale a 0, e NOT 0 è uguale a 1 (ov- 
vio). 

Per concludere, diciamo che utilizzan- 
do gli operatori logici disponibili sui 
calcolatori Sinclair è possibile esegui- 
re test su ogni tipo di dati. Con un po’ 
di allenamento, imparerete anche ad 
eseguire test multipli su di una sola li- 
nea, risparmiando discrete quantità di 
memoria e salendo un altro gradino 
sulla scala in cima alla quale si trovano 
i buoni programmatori. i 


“inseriscine un altro 


60 PRINT a;"+";b;"=";a+b 


PIATT ae 


80. PRINT a;"*":b;"=";a*b 


Programma 1 40 PRINT 
" 
10 REM programma con logica to 50 INPUT b 
p-down 
20 PRINT "inserisci un numero" 70 
30 INPUT a 90 STOP 
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Programma 2 


10 


20 


80 


90 


REM programma top-down co 
decisioni 
PRINT "inserisci il primo n 
umero" 


INPUT a 

PRINT "e adesso inserisci i 
.1 secondo" 

INPUT b 

IF a=b THEN PRINT "questi 


numeri sono uguali!" 

IF a<b THEN PRINT "il prim 
o numero e' piu' piccolo"'" 
del secondo" 
IF a>b THEN 
o numero e' 

el secondo" 

STOP 


PRINT “"it’prim 
piu' grande ta 


Programma 3 


10 REM decisioni e scelte 
20 LET r=INT (RND*100) 


30 LET t=0 
40 PRINT "Ho pensato un numero 
50 PRINT "tra::0 ceglie 
60 PRINT "Prova a indovinarlo! 
70 PRINT 
80 GO SUB 200 
90 IF g=r THEN GO TO 300 
100 IF g<r THEN GO SUB 400 


IF g>r THEN GO SUB 500 

GO TO 80 

REM 

REM subroutine chiamata dal 
la linea 80 

REM 

LET t=t+] 

PRINT "Dimmi il numero..." 
INPUT g 

RETURN 

REM 

REM subroutine chiamata dal 
la linea 90 


REM 

PRINT "Bravissimo!" 

PRINT "ce l'hai fatta in "; 
tr*:tentativi." 

PRINT "Il numero era propri 
O magsti" 

STOP 

REM 


REM subroutine chiamata dal 
la linea 100 


REM 

PRINT "Il mio numero e' piu 
' grande di"';g 

RETURN 

REM 


REM subroutine chiamata dal 
la linea 110 

REM 

PRINT "Il mio numero e' 
*-Peccolo Hit 
RETURN 


piu 


I programmi “Forzaquattro” e 
‘“Goldrace”, entrambi per ZX81, 
pubblicati sul numero 3 di 
SUPERSINC non sono stati 
realizzati da Marcello Spero, come 
erroneamente riportato, bensì da 
Giovanni Tisi. 

Ci scusiamo dell'errore con 
entrambi gli interessati. 


SUPERSI v84: d5 


di Marcello Spero 


a scorsa puntata di “Nei meandri 

dello Spectrum” abbiamo esamina- 
to i vari componenti dello Spectrum, 
con particolare riguardo alla CPU ed 
alle sue funzioni; abbiamo anche visto 
come sul retro del computer siano ac- 
cessibili molti dei segnali che scandi- 
scono la “vita” della macchina. 
Questa volta esaminiamo più in detta- 
glio quali sono i modi e i mezzi di cui 
lo Spectrum dispone per collegarsi e 
comunicare con il mondo esterno, e 
perché può essere interessante sfrut- 
tarli per metterlo in collegamento con 
congegni di vario tipo. 
Il mezzo di comunicazione con l’ester 
no dello Spectrum, come di qualsiasi 
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altro computer, consiste in dati, cioè 
numeri, per intenderci. Numeri che, in 
forma binaria, entrano ed escono attra- 
verso otto linee, che prendono il nome 
di ‘bus dei dati”. Le linee sono otto 
perché questo è il numero di cifre bina- 
rie, cioè di bit, che forma un byte, 
l'unità di informazione della CPU dello 
Spectrum. 

Sul bus dei dati, però, si muovono an- 
che le informazioni destinate alla me- 
moria o provenienti da essa; per distin- 
guere i due tipi di destinatario o di 
‘mittente’ ci sono due linee apposite, 
attivate dalla CPU, l'una per indicare 
che l'informazione riguarda la memo- 
ria, l’altra per indicare che riguarda il 


L’interfaccia 


come 
e perché 


Teoria e pratica della costruzione 
di alcuni dispositivi per lo sfrutta- 
mento ottimale del calcolatore 


esterno, chiamato I/O 
(Input/Output). Rimane da determinare 
se l'informazione proviene dalla CPU o 
vi è diretta; per questo ci sono altre 
due linee, l'una per indicare che la CPU 
vuole leggere il dato, l’altra per indica- 
re che la CPU vuole scrivere il dato, che 
quindi proverrà da lei. 


mondo 


Avendo fatto sapere con chi vuole ave- 
re a che fare, e se vuole inviare o rice- 
vere dati, la CPU deve anche chiarire 
quale locazione vuole nel caso della 
memoria, o quale periferica nel caso 
dell'O. A questo è deputato un altro 
bus, il “bus degli indirizzi”, che verrà ca- 
ricato con un valore contemporanea- 


mente al bus dei dati. Questo valore 
rappresenta l'indirizzo, sempre in forma 
binaria ma stavolta a 16 cifre cioè a due 
byte, della locazione di memoria o del- 
la periferica richiesta. 

Rivediamo il tutto dal punto di vista di 
un congegno esterno che voglia colle- 
garsi allo Spectrum e debba quindi ca- 
pire quando l'informazione sul bus dei 
dati è diretta a lui. La condizione che lo 
interessa sarà verificata se saranno at- 
tivate (cioè portate a livello logico ze- 
ro) contemporaneamente la linea 1/0 
(si chiama I/ORQ) e quella di scrittura 
(si chiama WR), e se sul bus degli indi- 
rizzi ci sarà il suo numero. Per inviare 
un dato dovrà invece attendere che sia- 
no attivate I/ORQ e la linea di lettura 
(RD), e che il bus degli indirizzi abbia 
il suo numero. 

Un congegno che sappia leggere tutte 
queste linee, prenda in considerazione 
solo le informazioni che lo riguardano 
e attenda che il suo momento prima di 
inviarne è un “interfaccia”. 

Un certo numero di periferiche essen- 
ziali è già collegato con lo Spectrum: 
si tratta della tastiera, del registratore 
e dell'altoparlante; altre, come la stam- 
pante ZX o i Microdrive, possono es- 
sergli collegate. Queste però possiedo- 
no già una loro interfaccia incorporata, 
che permette loro di funzionare senza 
problemi. Quello che noi ci proponia- 
mo, invece, è la realizzazione di un'in- 
terfaccia che consenta il collegamento 
a congegni non originariamente con- 
cepiti per funzionare in unione con lo 
Spectrum. Per avere chiaro il motivo 
che rende attraente un simile lavoro, 
vediamo un esempio. 

Supponiamo di voler dotare la porta di 
casa nostra di una serratura a combi- 
nazione, formata da una pulsantiera 
esterna, collegata ad un apposito con- 
gegno interno che fa scattare la serra- 
tura solo se è stata composta la combi- 
nazione corretta. Oltre ad una pulsan- 
tiera ed una serratura elettrica, ci oc- 
corre un apposito circuito che riceva i 
segnali elettrici provenienti dai tasti, 
ne controlli la combinazione ed even- 
tualmente dia tensione alla serratura. 
Volendo realizzare qualcosa di vera- 
mente sicuro, però, bisognerebbe che 
questo circuito, pur non reagendo ad 
una prima combinazione sbagliata, do- 
po un determinato numero di tentativi 
infruttuosi non ne accettasse più altre 
per un certo tempo, così da scoraggia- 
re eventuali malintenzionati. Per que- 
sto dovrebbe essere dotato di un tem- 
porizzatore, che parta alla prima com- 
binazione sbagliata. 

Fatti i conti ci si rende conto che la 
spesa per un simile apparecchio non 
sarebbe indifferente; oltretutto se un 
giorno decidessimo che questo tipo di 
serratura non è più adatto alla nostra 
casa dovremmo buttare tutto, perché 
un congegno così specifico ben diffi- 
cilmente potrà essere adattato ad un 
altro scopo. 

Supponiamo invece di realizzare la 


medesima serratura servendoci dello 
Spectrum. Oltre ovviamente, alla pul- 
santiera ed alla serratura, non ci serve 
nient'altro: ci basta il computer e la 
sua interfaccia. Un apposito program- 
ma, infatti, leggerà lo stato della pul- 
santiera, lo paragonerà alla combina- 
zione esatta ed eventualmente invierà 
un segnale che farà scattare la serratu- 
ra. 

La protezione a tempo vista prima di- 
venta di realizzazione semplicissima 
senza alcuna aggiunta di materiale; 
sempre senza aggiunta di materiale so- 
no possibili molti servizi aggiuntivi, 
quali una combinazione personalizzata 
per ciascun membro della famiglia con 
relativa registrazione delle entrate, o 
combinazioni che aprono la porta solo 
entro orari determinati. Altre aggiunte 
o modifiche sarebbero sempre possibi- 
li, mentre nel caso di una eliminazione 
di tutto il sistema l’unica cosa da butta- 
re (non è detto) sarebbe la pulsantiera. 
Il nostro scopo non è certamente la rea- 
lizzazione di serrature a combinazione, 
ma quello che l'esempio voleva mette- 
re in luce è che utilizzando un compu- 
ter in un sistema di controllo esterno si 
realizza un notevole risparmio, ed una 
grande versatilità d'uso. In pratica un 
programma fa le veci di un circuito, 
cioè il software consente di risparmia- 
re sull'hardware. 

Si apre così la strada ad una moltitudi- 
ne di congegni, dai più utili ai più inu- 
tili: dal combinatore telefonico che, ri- 
cevuto da tastiera il nome e cognome 
di una persona, ne trova il numero e lo 
compone, ripetendolo finché non lo 
trova libero, all’antifurto più sofistica- 
to ed imbattibile, all’apparecchio che 
al mattino accende la caffettiera elet- 
trica e ci dice sullo schermo se pioverà 
o meno, le possibilità sono infinite. 
Esiste poi tutta una gamma di informa- 
zioni che non sono espresse come va- 
lori numerici distinti, cioè acceso o 
spento, uno o zero, dieci o undici, ma 
con quantità variabili in modo conti- 
nuo. Per intenderci, pensate al livello 
dell’acqua in una vasca che si riempie, 
o alla temperatura. In questi casi per 
rendere le informazioni accessibili al 
computer occorre trasformarle in una 
successione di valori discreti, necessa- 
riamente approssimata alla variazione 
continua. L'apparecchio che opera 
questa trasformazione si chiama con- 
vertitore analogico/digitale, abbrevia- 


tabella 1 


to in A/D; analogico è infatti un segna- 
le che può variare in modo continuo, 
mentre è digitale un segnale che può 
assumere solo un certo numero di va- 
lori discreti. 

Con un apparecchio di questo tipo, 
che arriveremo a fabbricarci, avremo 
possibilità ancora diverse: misurazione 
di temperature, voltmetri, penne otti- 
che, e così via. 

Ma torniamo con i piedi per terra, e ve- 
diamo quali sono i componenti che ci 
servono per realizzare una semplice in- 
terfaccia. La nostra prima realizzazio- 
ne sarà improntata alla masssima sem- 
plicità; avrà la possibilità di collegarsi 
ad un solo congegno esterno, e quindi 
dovrà riconoscere un solo indirizzo, 
che per semplicità sarà costituito da 
un solo bit. Quando quel bit sarà atti- 
vato, cioè avrà valore logico zero, il 
“port” cioè la via di comunicazione, da 
noi creato sarà selezionato. Natural- 
mente dovranno essere lette contem- 
poraneamente tutte le linee necessa- 
rie, cioè I/O, RD e WR. 

In pratica abbiamo bisogno di ricavare 
quattro segnali in ingresso due segnali 
in uscita, che diano le informazioni, 
che chiameremo OKINPUT e OKOUT- 
PUT, per attivare l'una o l'altra sezione 
dell'interfaccia. Questo risultato lo si 
ottiene usando delle ‘porte nor”, cioè 
dei circuiti che eseguono l’operaziono 
logica “or” sui segnali in ingresso, e 
quindi l'operazione logica ‘not’ sul ri- 
sultato ottenuto. In tabella 1 vedete la 
cosiddetta ‘tavola di verità” della fun- 
zione nor a tre ingressi, che è appunto 
quella che ci interessa. In pratica colle- 
gheremo le varie linee alle due porte 
logiche in modo che OKINPUT ven- 
ga attivato (in questo caso l'attivazione 
corrisponde al livello logico 1) quando 
TO, il bit del bus indirizzi e sono 
tutti tre a livello logico zero; OKOUT- 
PUT sarà invece attivato quando sono 
a zero I/O, il bit del bus indirizzi e WR. 
OKINPUT abiliterà un apposito circui- 
to a trasmettere il dato che aveva pre- 
cedentemente immagazzinato, mentre 
OKOUTPUT ne abiliterà un altro a “la- 
sciar passare” l'informazione prove- 
niente dal bus dati. 

Abbiamo così tracciato lo schema del- 
la nostra interfaccia. La prossima volta 
vedremo la parte pratica del progetto, 
ossia la realizzazione vera e propria, e 
vi accorgerete che queste cose sono 
ben più complicate a dirsi che a farsi. 
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ERRATA CORRIGE 


Il listato del gioco “Anellide” compar- 
so su SUPERSINC numero 3 a pagina 
48 è stato pubblicato privo di dati ne- 
cessari per la rappresentazione del la- 
birinto sullo schermo. E possibile rime- 
diare all'inconveniente in vari sistemi: 
1) cancellate la linea 9999 del listato 
originale e salvatelo con GO TO 9998. 


Ora date pure NEW e scrivete un pro- 
grammino caricatore, che servirà a in- 
serire nelle locazioni da 31000 a 31639 
(quelle esaminate dal programma per 
mezzo delle linee 80/83) i codici dei ca- 
ratteri occorrenti per disegnare il labi- 
rinto. Un esempio può essere 

10 FOR i=31000 TO 31639 

20 INPUT x 

30 IF x() 32 AND (x(144 OR x)164) 
THEN BEEP 1,1: PRINT “Hai sbaglia- 
to!”: GO TO 20: REM “sicura” per limi- 
tare la possibilità di errori 


40 PRINT i,x 


Anellide 


versione per ZX Spectrum 16K/ 48K 
lista dei codici contenuti 
nelle locazioni 31000/31639 


31000 150 31037 
31001 149 31038 
31002 149 31039 
31003 149 31040 
31004 149 31041 
31005 149 31042 
31006 154 31043 
31007 149 31044 
31008 149 31045 
31009 149 31046 
31010 154 31047 
31011 149 31048 
31012 149 31049 
31013 149 31050 
31014 154 31051 
31015 149 31052 
31016 149 31053 
31017 149 31054 
31018 151 31055 
31019 32 31056 
31020 150 31057 
31021 149 31058 
31022 149 31059 
31023 149 31060 
31024 154 31061 
31025 149 31062 
31026 149 31063 
31027 149 31064 
31028 149 31065 
31029 149 31066 
31030 149 31067 
31031 151 31068 
31032 148 31069 
31033 32 31070 
31034 32 31071 
31035 dà 31072 
31036 32 31073 
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Il labirinto di ‘‘Anellide”’ 


50 POKE i,x, 

60 NEXT i 

Date il RUN e inserite, con somma pa- 
zienza, i codici (che potete leggere in 
questa pagina). Arrivati alla fine... vi 
conviene controllare tutto utilizzando lo 
stesso programmino, privato delle linee 
20,30,50 e con la linea 40 modificata 
in 40 PRINT i, PEEK i. Se volete evita- 
re la domandina ‘“’scroll?’, potete inse- 
rire una linea 45 INPUT INKEY$ = “y” 
o, meglio ancora, 45 POKE 23692,255. 
Terminato? Bene! Non vi vresta che sal- 


vare il tutto di seguito al listato origina- 


le, mediante un SAVE “labirinto” CO- 
DE 31000,640. Digitate RAND USR 0 
e caricate “Anellide’, ora perfettamen- 
te funzionante. 2) Inserite gli stessi co- 
dici, ma direttamente nel corpo del pro- 
gramma, sotto forma di linee DATA, 
modificando il listato come segue: 


80 FOR n= 1 TO 640 


81 READ c 

31074 

31075 

31076 

31077 

31078 

31079 
32 31080 
148 31081 
32 31082 
32 31083 
32 31084 
145 31085 
32 31086 
32 31087 
32 31088 
148 31089 
392 31090 
32 31091 
32 31092 
148 31093 
32 31094 
145 31095 
sà 31096 
32 31097 
32 31098 
148 31099 
32 31100 
32 31101 
32 31102 
da 391703 
32 31104 
32 ST.+05 
148 31106 
148 311,07 
32 31108 
147 31109 
154 31110 
146 ITTAG 
32 FUT 
148 3143 
32 ZI LIA 
144 3RRLS 
IE ITVE LO 


83 PRINT INK 3; CHR$ c;: NEXT N 
85 DATA... 
86 DATA... 
87 DATA... 


e così via. In questo caso, dovete can- 
cellare la linea 9999 e il LOAD “  CO- 
DE della linea 1, per poi salvare il gio- 
co col salito GO TO 9998 3) Infine è 
possibile ricavare il labirinto dalla foto 
pubblicata nell'articolo individuando i 
caratteri grafici utilizzati per poi crea- 
re alcune stringhe (contenenti ognuna 
una o più righe del labirinto) da inseri- 
re nel programma tra la linea 70 e la li- 
nea 96, accompagnate da istruzioni 
PRINT. Le linee da eliminare sono que- 
ste: 80,81,83,9999 (più il LOAD “  CO- 
DE di linea 1) e la procedura di registra- 
zione consiste nel solito GO TO 9998. 
Sperando di avere risolto con questa 
spiegazione ogni problema, ci scusiamo 
cor. tutti i lettori per questo spiacevole 
incidente. 


32 31137 149 
32 31118 594 
i 25 de i SE 32 
32 31120 145 
148 | 31121 32 
32 3IF22 148 
144 | 31123 32 
32 31124 32 
148 | 31125 32 
32 31126 32 
32 3ti23 148 
32 31128 156 
144 | 31129 146 
32 31130 32 
Deo 30131 32 
SE 31:1.32 32 
90. | 31133 147 
149 | 31134 82 
149 | 31135 32 
146 | 31136 32 
32 31137 32 
148 | 31138 32 
148 | 31139 32 
32 31140 32 
32 31141 32 
1eboos3i 342 148 
32 31143 32 
32 31144 32 
148 | 31145 32 
32 31146 32 
153 31147 32 
149 | 31148 LR 
149 | 31149 32 
149 | 31150 148 
) pv MS RI 32 
32 31152 32 
148, 3h 31:k53 32 
32 31154 148 
185: p3bE 55 32 
82 31156 144 
(0 CB e 32 
32 31158 150 
147 | 31159 1:87 


31160 
31.L6l 
31162 
31163 
31164 
31165 
31166 
31167 
31168 
31169 
+31170 
314.7) 
SEL 
a Liza 
31174 
SIIT 
31176 
3EI77 
31178 
3WI:79 
31180 
31181 
3182 
31183 
31184 
31185 
31186 
31187 
31188 
31189 
31190 
31191 
IVI9Z 
31193 
31194 
31195 
31196 
a t197 
31198 
dI1:99 
31200 
3:1:201 
31202 
31203 
31204 
31205 
31206 
31207 
31208 
31209 
31:21:0 
ST:241 
31.212 
37243 
31214 
38:21.5 
31216 
31217 
31218 
37219 
31220 
3122] 
3V222 
31223 
31224 
34225 
31226 
IVI 
31228 
31229 
31230 


31231 
31232 
31233 
31234 
ci Pr 
31236 
31237 
31238 
31239 
31240 
31241 
31242 
31243 
31244 
31245 
31246 
31247 
31248 
31249 
31250 
31:251 
3Y:252 
31,253 


31254 


31255 
31256 
31.257 
31258 
31259 
31260 
31261 
31262 
31263 
31264 
31265 
31266 
31267 
31268 
31269 
SkS70 
31271 
31272 
3273 
31274 
31275 
31276 
31277 
31278 
31279 
31280 
31281 
31282 
31283 
31284 
31285 
31286 
31287 
31288 
31289 
31290 
31291 
31292 
31.293 
31294 
34295 
31:296 
31297 
31298 
31299 
31300 
31301 


37302 
31303 
31304 
31305 
31306 
31307 
31308 
31309 
31310 
31311 

31312 
31313 
31314 
31315 
31316 
31317 
31318 
31319 
31320 
31321 

31322 
31323 
31324 
31325 
31326 
31327 
31328 
31329 
31330 
31331 

31332 
31333 
31334 
31335 
31336 
31337 
31338 
31339 
31340 
3134] 

31342 
31343 
31344 
31345 
31346 
31347 
31348 
31349 
31350 
31351 

31352 
31353 
31354 
31355 
31356 
31357 
31358 
31359 
31360 
31361 

31362 
31363 
31364 
31365 
31366 
31367 
31368 
31369 
31370 
31371 

31372 


3LIT3 
31374 
34375 
31376 
3377 
31378 
31.379 


31380 


31381 
31382 
31383 
31384 
31385 
31386 
31387 
31388 
31389 
31390 
31391 
31,492 
31.393 
31.394 
31,395 
31396 
dI. 397 
31398 
37399 
31400 
31401 
31402 
31403 
31404 
31405 
31406 
31407 
31408 
31409 
31410 
31411 
31412 
31413 
31414 
FRI45 
31416 
31417 
31418 
31419 
31420 
31421 
31422 
31423 
31424 
31425 
31426 
31427 
31428 
31429 
31430 
31431 
31432 
31433 
31434 
31435 
31436 
31437 
31438 
31439 
31440 
3144] 
31442 
31443 
31444 
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31445 145 31494 144 31543 148 30592 da 


31446 ss 31495 32 31544 148 31593 co) 
31447 144 31496 150 31545 e 31594 SE 
31448 148 31497 146 31546 145 31595 33 
31449 32 31498 32 31547 32 31596 32 
31450 148 31499 144 31548 145 31597 148 
3145] 32 31500 32 31549 32 31598 32 
31452 153 31501 32 31550 148 31599 32 
31453 149 31502 32 31551 32 31600 32 
31454 146 33.03 32 3ST55a 145 31601 148 
31455 32 31504 32 31553 32 31602 32 
31456 148 34505 145 3554 144 31603 32 
31457 32 31506 52 37555 32 31604 si 
31458 32 31507 147 31556 147 31605 32 
31459 32 31508 149 31557 149 31606 32 
31460 148 31509 146 31558 152 

31461 32 31510 32 31559 32 ptt ha 
31462 32 31511 148 31560 145 999 un 
31463 32 31512 148 31561 32 itato (6 
31464 32 31513 32 31562 147 

31465 32 31514 148 | 31563 152 rig di 
31466 xa 31515: sa 31564 % A er 
31467 32 31516 144 31565 148 “i lan 
31468 32 31517 32 31566 32 

31469 145 | 31518 144 | 31567 145] 31615 149 
31470 32 31519 32 31568 32 31616 149 
31471 145 | 31520 148 | 31569 144| 31617 149 
31472 32 31521 32 31570 32 31618 155 
31473 148 | 31522 sa 31571 147| 31619 149 
31474 32 31523 32 31572 149 31620 149 
31475 32 31524 32 31573 146 31621 149 
31476 32 31525 32 31574 32 31622 149 
31477 32 31526 148 31575 148|] 31623 149 
31478 32 31527 32 31576 148 31624 149, 
31479 148 31528 148 31577 32 31625 149 
31480 148 31529 32 31578 32 31626 146 
31481 32 31530 32 31579 32 31627 32 
31482 148 31531 148 31580 32 31628 147 
31483 32 31532 32 31581 32 31629 155 
31484 32 31533 144 31582 148 31630 149 
31485 32 31534 32 31583 32 31631 149 
31486 32 31535 144 31584 32 31632 149 
31487 32 31536 32 31585 32 31633 155 
31488 156 31537 32 31586 148 31634 149 
31489 149 31538 32 31587 32 31635 149 
31490 146 31539 32 31588 32 31636 149 
3149] 32 31540 32 31589 32 31637 149 
31492 145 31541 32 31590 32 31638 149 
31493 32 31542 32 31591 32 31639 152 
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OGNI VENERDI’ 
IN EDICOLA 


‘ab PAPERSOFT, 
Ara il primo settimanale di software 
per il tuo home e 
personal computer 
a sole 1.000 Lire. 


J. soft editrice - via Rosellini, 12 - 20124 Milano 
tel. 02/6888228-683797 


Piccola guida 
all’input 
dei programmi 


programmi pubblicati da SUPERSINC sono stati 
I accuratamente provati e verificati. In questo mo- 
do speriamo di avere ridotto al minimo la possibilità 
di errori. 
Nel caso comunque un programma dovesse presen- 
tare malfunzionamenti, pubblicheremo le modifiche 
da apportare in uno dei numeri immediatamente suc- 
cessivi della rivista. 
Per utilizzare i programmi pubblicati è sufficiente di- 
gitare i relativi listati sulla tastiera del calcolatore. 
Nel caso dello ZX SPECTRUM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo 
grafico, per semplificare la comprensione dei listati. 
Come è noto, lo SPECTRUM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici 
predefiniti (i tasti numerici da 1 a8 e gli stessi ‘‘shif- 
tati”) e una serie di caratteri definibili dall'utente 
nell’ambito di un programma (le lettere da A a U). 
In entrambi i casi, per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrasse- 
gnato dalla lettera G lampeggiante) premendo con- 
temporaneamente i tasti CAPS-SHIFT e 9. 
Nei nostri listati i caratteri grafici predefiniti sono in- 
dicati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
parentesi graffe. 


{G1} 7 

{62} ” 

{63} DI 

{64} Ga . 

{G5} [SID 5 

{66} a." lp: 

{GM " 

{68} | L] 

{SG1} el: CI Kb 

(sc?) ISS di 
{SG3} IS E sodo. , 
{sc4} RSA Cla P 

{sc5} Ml 5 

{SG6} [_R of 

{SG7} P 

{SG8} * 


iz It |R]U]H 


Ad esempio {G4} significa che occorre digitare il ta- 
sto 4, con il cursore in modo grafico. 
Analogamente la codifica SG, seguita da un numero 
da 1 a 8, significa che occorre digitare il relativo ta- 
sto numerico premendo contemporaneamente il ta- 
sto CAPS-SHIFT. 

Ad esempio quando si trova la codifica {SG2}, occor- 
re premere il tasto 2 contemporaneamente al tasto 
CAPS-SHIFT, ovviamente con il cursore in modo gra- 
fico. In entrambi i casi precedenti, quando un simbo- 
lo grafico deve essere digitato più volte, i caratteri G 
o SG della codifica sono preceduti da un numero che 
specifica quante volte va premuto il tasto grafico in- 
dicato. 

Così ad esempio {8G5] significa che il tasto grafico 5 
va digitato 8 volte e analogamente [4SG1} indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battu- 
ti 4 volte. 

| caratteri grafici definibili (le lettere da A a U in mo- 
do grafico) hanno una codifica semplificata: la lette- 
ra corrispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, 
una A sottolineata, occorre entrare in modo grafico 
(al solito premendo contemporaneamente i tasti 
CAPS-SHIFT e 9) e quindi digitare semplicemente il 
tasto che contrassegna la lettera A. 


Simbolo grafico 
definito nel 
programma in uso. 


Premete 


iTloalmim' io |alw Ì 


n, 


Se non siete 
già in modo 
G, entrateci Se dovete 
schiacciando uscire dal 
contempora- modo G, 
neamente schiacciate 9 
CAPS SHIFT 
e9 

N 

O 

P 

R 

S 

É% 

U 


"eee e E-_e_e_e_ eboli 


di Enrico Levantino 


Un piccolo ma efficiente data base 
a vostra disposizione 


uesto programma gestisce una ba- 

se di dati, cioè consente una rac- 
colta di informazioni relative a una da- 
ta applicazione (rubriche telefoniche, 
biblioteca di casa, elenco dei program- 
mi, ecc.). Ogni informazione è racchiu- 
sa in un record (un numero telefonico, 
un libro, un programma..) composto 
da campi, ovvero informazioni più spe- 
cifiche sul soggetto in esame. Nell’ar- 
chivio della biblioteca domestica ci sa- 
ranno così diversi record ognuno con- 
tenente un libro; in tutti i record ci sarà 
la medesima strutturazione in campi 
(titolo del libro, autore, editore, prez- 
zo, data di acquisto, eventuale presti- 
to, numero di pagine e così via). L'ar- 
chivio può essere aggiornato modifi- 
cando, aggiungendo o togliendo re- 
cord; è possibile poi rintracciare un re- 
cord indicandone il contenuto di un 
campo. 
Non spendiamo altre parole, poiché il 
programma già di per sé stesso abbon- 
da in chiarimenti e spiegazioni. Quan- 
to al listato, le REM in esso contenute 
illustrano i compiti svolti dalle varie 
routine presenti, favorendone la com- 
prensione. 


Archivio o 3] PRINT "Un record e' compost 
versione per ZX Spectrum 16K/48K o da campi, ognuno dei qual 


30 PRINT "Questo programma con i contiene una informazio 


sente la creazione di li ne specifica. Esempio:in un 
ste di record La definiz a rubrica telefonica puo! 
i È hiamato N 
ione della loro uant esserci un campo Cc 
ita' e lunghezza e' a io OME, un campo NUM.TEL. e co 
vostro piacere, sempre nei si' via, per una gamma di 
limiti imposti dalla R applicazioni limitata sol 


AM a disposizione. Per 
i meno espertidiremo che u 
n record e' una serie d 


i informazioni omogenee su 
llo stesso soggetto." 


amente dalla vostra immagin 
azione." 


32 PRINT #0; "premi un tasto pe 


r proseguire": PAUSE 0: 
CLS 
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39 


190 


"Una volta stabilito 
il numero dei record, ic 
ampi che li formano e 
la lunghezza di questiultim 
i, non sara' piu' possibile 
modificare la struttura di 
quell'archivio. Eviden 
temente e' possibile aver 
e su cassetta diversi arch 
ivi (gestibili uno alla vo 
lta) strutturati in modi di 
versi."'"Nel caso che intro 


PRINT 


duciate un dato piu' lun 
go del consentito il compu 
ter non lo accettera', per 


mettendovi di reinserirlo 
correttamente." 

PRINT #0; "premi un tasto pe 

r proseguire": PAUSE 0 

CLS ?: LET ctr=0: LET variaz 

ione=0: LET cancellazione=0 

® LET z$="ARCHIVIO" 

INPUT "quanti records? ";re 


INPUT "Quanti campi vuoi pe 
r record? (massimo 10) ";ca 


IF ca>10 THEN GO TO 100 
DIM n$(10,10): DIM m(10) 


FOR a=] TO 10: LET m(a)=1]: 
NEXT a 
FOR a=1] TO ca 
INPUT "none"; (aj 
ins (a) 
INPUT *— Lunghezza ";(a);"' Cc 
ampo (max32)";m(a) 
IF m(a)>32 THEN GO TO 160 
NEXT a 
DIM a$(re,m(1)): DIM b$(re, 
m(2)): DIM c$(re,m(3)): 
DIM d$(re,m(4)): DIM e$(re 
sm(5)): DIM f$(re,m(6)): 
DIM g$(re,m(7)): DIM h$(re 
rm(8)): DIM i$(re,m(9)): 
DIM l$(re,m(10)) 
CLS : PRINT "] INTRODUZIONE 
RECORD": PRINT : PRINT "2 
RICERCA RECORD": PRINT : 
PRINT "3 VARIAZIONE DI UN 
CAMPO": PRINT : PRINT "4 CA 
NCELLAZIONE RECORD": 
PRINT : PRINT "5 SALVATAGG 
IO DATI" 
INPUT "Opzione scelta? ";op 
IF op>5 THEN GO TO 200 
IF op=1] THEN GO SUB 500. 


campo" 
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IF op=2 THEN GO TO 1000 

IF 0op=3 THEN GO SUB 1500 
IF op=4 THEN GO SUB 2000 
IF op=5 THEN GO SUB 2500 
GO TO 190 

REM introduzione dati 

CLS 

LET ctr=ctr+] 

FOR a=] TO ca 

IF a=] THEN INPUT (n$(a)); 
Mens IF LEN r$>m(a) 

THEN GO TO 530 

IF a=] THEN LET a$fg(ctr)=r$s 


IF a=2 THEN INPUT (n$(a)); 
= r9o5 IF LEN r$î>bm(a) 

THEN GO TO 540 

IF a=2 THEN LET b$(ctr)=r$s 


IF a=3 THEN INPUT (n$(a)); 
+ ersocIB LEN r$MMa) 

THEN GO TO 550 

IF- a=3 THEN LET c$(ctr)=r$s 


IF a=4 THEN INPUT (n$(a)); 
e L98 TPUGEN roma) 

THEN GO TO 560 

IF a=4 THEN LET d$(ctr)=r$ 


IF a=5 THEN INPUT (n$(a)); 
otsreSA:TE LEN EcMM(a) 

THEN GO TO 570 

IF a=5 THEN LET e$(ctr)s=r$s 


IF a=6 THEN INPUT (n$(a)); 
er 8vTF LENODm (3) 

THEN GO TO 580 

IF a=6 THEN LET f${(ctr)=r$ 


IF. a=7 THEN INPUT (n$(a)); 
è "tb: IF DEN r$Mmu{a) 

THEN GO TO 590 

IF a=7 THEN LET g${(ctr)=r$ 


IF a=8 THEN INPUT (n$(a)); 
ent» r$: PR LEN ro>n(d9 

THEN GO TO 600 

IF a=8 THEN LET h${(ctr)=r$ 


IF a=9 THEN INPUT (n$(a)); 
" "-r$ IR DEN bra) 

THEN GO TO 610 

IF a=9 THEN LET i$(ctr)=r$s 


IF a=10 THEN INPUT (n$(a)) 
s MES IF ‘LEN 'S5>mn(a) 
THEN GO TO 620 


625 
630 
640 
650 
660 


670 
680 


690 


695 


700 
710 
1000 
1010 
1020 


1030 


1040 
1050 


1055 


1058 


1060 


1070 


1080 


1090 


1700 


1110 


1120 


IF a=]10 THEN LET l$(ctr)=r 
$ 
NEXT a 
LET a=ctr: GO SUB 3000 
INPUT "Sono corretti i dati 
introdotti? (s/n) ";r$ 
IF r$<>"s" AME 
THEN GO TO 650 
IF r$="n" THEN G0 TO 520 
INPUT "Vuoi introdurre un a 
ltro Record? (s/n) ";rs 
TR r$<>"n" ANDE E 
THEN GO TO 680 
IF r$="s" AND ctr=re THEN 
PRINT #0; "Non c'e' piu' 
azio in archivio": PRINT #1 
s"premi un tasto per ‘proseg 


uire": PAUSE 0: GO TO 190 
IF r$="s" THEN GO TO 510 
RETURN 

REM ricerca record 

CLS 

FOR x#1"TO Ca: PRINT x;" "; 
n$ (x): PRINT : NEXT Xx 


INPUT "Campo con cui cercar 
e il record? ";sc 


IF sc>ca THEN GO TO 1030 
INPUT "introduci il dato pe 
r la ricerca ":0$ 


IF LEN o$>m(sc) THEN 
GO TO 1050 
LET r=m(sc)-LEN o$: LET o$= 
0$+" 
bk <TOGM 
IF sc=] THEN FOR a=l TO ct 
r: IF o$=aS(a) THEN 


GO SUB 3000: GO TO 1170 

IF sc=2 THEN FOR a=l] TO ct 
r: IF o$=bS(a) THEN 

GO SUB 3000: Go TO 1170 


IF sc=3 THEN FOR a=l TO ct 
r: IF o$=cS(a) THEN 
GO SUB 3000: Go TO 1170 


IF sc=4 THEN FOR a=l TO ct 
r: IF o$=d$(a) THEN 

GO SUB 3000: GO TO 1170 
IF sc=5 THEN FOR a=l] TO 
r: IF o$=e$(a) THEN 

GO SUB 3000: GO TO 1170 
IF sc=6 THEN FOR a=l TO ct 
r: IF o$=fS$(a) THEN 

GO SUB 3000: GO TO 1170 

IF sc=7 THEN FOR a=l TO ct 
r: IF o$=g$(a) THEN 

GO SUB 3000: GO TO 1170 


CE 


Sp’ 


1130 


1140 


‘IF sc=8 THEN FOR a=l TO ct 


r: IF o$=hS(a) THEN 
GO SUB 3000: Go TO 1170 
IF sc=9 THEN FOR a=l TO ct 
r: IF o$=i$(a) THEN 
GO SUB 3000: GO TO 1170 
IF sc=10 THEN FOR a=l] TO o 
tr: IF o$=l$(a) THEN 
GO.SUB: 3000: GO. FO L47770 
NEXT a 
PRINT #0;"Il dato introdott 
o non c'e:forsehai scritto 
male": PAUSE 200: GO TO 119 
0 
IF variazione=] THEN LET v 
ariazione=0: RETURN 
IF cancellazione=] THEN 
LET cancellazione=0: 
RETURN 
INPUT "Vuoi vedere un altro 
record? (s/n) "srs 
IF _.r$<>"s" AND r$<>"n" 
THEN GO TO 1190 
IF r$="s" THEN. GO TO 1010 
LET variazione=0: LET cance 
llazione=0 
GO TO 190 
REM variazione campo 
CLS 
LET variazione=]: 
GO SUB 1000 


INPUT "Quale campo? (scrivi 


il numero corrispondente) 
dara + * 

'’ 
IF ri>ca THEN GO TO 1520 


INPUT "Con cosa vuoi sostit 
uirlo?'*#s8 

IF ri=] THEN IF LEN s$>m(1 
) THEN GO TO 1530 

IF ri=l] THEN LET af(a)=s$8: 
GO SUB 3000 

IF ri=2 THEN IF LEN s$>m(2 
) THEN GO TO 1530 

IF ri=2 THEN LET b$(a)=s$: 
GO SUB‘ 3000 

IF ri=3 THEN IF LEN s$>m(3 
) THEN GO TO 1530 

IF ri=3 THEN LET c$(a)=s$: 
GO SUB 3000 

IF ri=4 THEN IF LEN s$>m(4 
) THEN GO TO 1530 

IF ri=4 THEN LET d$(a)=s$: 
GO SUB 3000 

IF ri=5 THEN IF LEN s$>m(5 
) THEN GO TO 1530 

IF ri=5 THEN LET ef$(a)=s$: 
GO SUB 3000 
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1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 


1750 


1760 
1770 
2000 


2010 


2015 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
21,35 
2737 


2140 
2500 
2510 
2515 


2520 


IF ri=6 THEN IF LEN s$>m(6 
) THEN GO TO 1530 

IF ri=6 THEN LET f$(a)=s$: 
GO SUB 3000 

IF ri=7 THEN IF LEN s$>m(7 
) THEN GO TO 1530 

IF ri=7 THEN LET g$(a)=s$: 
GO SUB 3000 

IF ri=8 THEN IF LEN s$>m(8 
) THEN GO TO 1530 

IF ri=8 THEN LET h$(a)=s$: 
GO SUB 3000 

IF ri=9 THEN IF LEN s$>m(9 
) THEN GO TO 1530 

IF ri=9 THEN LET i$(a)=s$: 
GO SUB 3000 


IF ri=1]0 THEN IF LEN s$>m( 
10) THEN GO TO 1530 

IF ri=]0 THEN LET l$(a)=s$ 
° GO SUB 3000 

INPUT "Vuoi variare un altr 
o campo? ";r$ 

IN ES<> "n" AND ‘r$<>"a" 

THEN GO TO 1740 

IF r$="s" THEN GO TO 1520 
RETURN 

REM cancellazione record 


LET cancellazione=1: 

GO SUB 1000 
PAUSE 200 
FOR x=a TO (ctr-1) 
aS(x)=a$(x+1) 
b$(x)=bS(x+]1) 

c$ (x)=c$ (x+1) 
Aa$ (x)=d$(x+]) 

e$ (x)=e$(x+1]) 
£S(x)=£S(x+]) 

g$ (x)=g$(x+1) 

h$ (x)=h$(x+1) 

i$ (x)=i$(x+1) 
1$(x)=1$(x+1) 

NEXT x 

LET ctr=ctr-] 

PRINT #0; FLASH ]1;" CANCE 
LLAZIONE EFFETTUATA! ad 
PRINT #1;" premi un tasto 
per proseguire ": PAUSE 0 
RETURN 

REM salvataggio dati 

INPUT "vuoi cambiare il nom 
e di registrazione? (s/n) " 
sr$ 

IF r$<>"s" AND r$<>"n" 
THEN GO TO 2510 

IF r$="n" THEN: SAVE z$ 
LINE 190: RETURN 
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a # Ù ww 


:#IF x=7 THEN 


INPUT "Nuovo nome? (10 posi 

zioniomaxr.)!"; z$ 

IF LEN z$>10 THEN GO TO 25 

30 

SAVE z$ LINE 190 

VERIFY z$ 

RETURN 

REM video 

PAPER ]: CLS: 

PRINT TAB 14; FLASH }]; 
PAPER 7; "RECORD": PAPER 7: 
PRINT 

FOR x=1] TO ca 

PRINT AT x*2,0; PAPER 6;" 

(Peace). n$ (0) a 
" 

IF x=] THEN 

$ (a) 

IF x=2 THEN 

S(a). 

IF x=3 THEN 

$S (a) 

IF x=4 THEN 

,0;A$ (a) 

IF x=5 THEN 

1,0;e$(a) 

IF x=6 THEN 

3,0;£$(a) 


PRINT AT 


PRINT AT 


PRINT AT 


PRINT AT 9 


PRINT AT ] 


PRINT AT |] 


PRINT AT |] 
5,0;g9$ (a) 
IF x=8 THEN 
7,0;h$(a) 
IF x=9 THEN 
9,0;i$(a) 
IF x=10 THEN PRINT 
AT 23705 1a ) 

NEXT x 

RETURN 


PRINT AT ] 


PRINT AT |] 


CTMTRODUTIONE SSCORD 
RICERCA SECCSC 
WAGIAZIONE DI UN i 


see Se 


di Carlo e Mauro Corti 


Vivete in casa vostra le follie di 
Las Vegas, con gli amici e... lo 
Spectrum! 


nun mondo afflitto da così tanti pro- 
Ibiemi c'è anche il momento per gio- 
care e noi abbiamo concepito questo 
programma ponendoci il traguardo di 
farvi divertire il più possibile. Bando 
alle ciance e via con la descrizione!! 
L'ambiente che ci ricorda questo pro- 
gramma è quello che ognuno di noi 
vorrebbe vedere e di cui vorrebbe far 
parte almeno una volta nella vita: “Las 
Vegas”. Si tratta infatti di una colora- 
tissima slot machine con la quale po- 
tremo iniziare il nostro viaggio fanta- 
stico nelle sale da gioco. Dal momento 
in cui si tira la leva cinque rulli ci mo- 
strano a turno campane, mele succose, 
ciliegie, banane e fragole lasciandoci 
fino all'ultimo col fiato sospeso nella 
speranza di aver azzeccato una combi. 
nazione. 
Quando i cinque fatidici rulli smettono 
di ruotare, subito appare sullo scher- 
mo la combinazione che abbiamo otte- 
nuto e soprattutto se la nostra giocata 
ci ha fruttato qualcosa. Come accade 
però in qualsiasi gioco di fortuna non 
sempre si può vincere, ma non tutto è 
perduto poiché quasi come Superman 
nel momento del bisogno può interve- 
nire l'opzione HOLD (tradotta in «bloc- 
ca!») che ci permette di bloccare i rulli 
che potrebbero servire per un eventua- 
le combinazione vincente. Migliore è 
la combinazione (minimo 2 campane 
accostate), maggiore naturalmente è 
l'ammontare della vincita. Volendo 
possono partecipare fino a quattro gio- 
catori contemporaneamente, e vinca il 
migliore! 


Slot Machine 


versione per ZX Spectrum 16K /48K 


Programma principale 


1 LOAD ""CODE : CLS 


2 PRINT AT 0,10; FLASH ]; 
INK 2;"SLOT MACHINE": 


Descrizione delle variabili 


P$ 


|) 
DIM M (P) 


Prende come valore stringa il numero dei giocatori 
(max 4) 

Trasforma la stringa PS in valore numerico 

In questo modo si inizializza un vettore che ha come va- 
lore il numero dei giocatori e ne contiene il punteggio 
Fa parte di un ciclo FOR-NEXT con limite P 

Fa parte di un ciclo FOR-NEXT con limite P e si incre- 
menta di una unità dopo ogni giocata 

Serve per il controllo del numero dei giocatori rimasti 
senza soldi 

contiene i diversi caratteri grafici (DIM A$ (5,4) ) 

lo stesso di AS (DIM B$ (5,4) ) 

serve per la stampa di rulli (DIM A (5) ) 

serve per tenere bloccati i rulli dell’HOLD (DIM Q (5)) 
cifra vinta 

serve per il numero del rullo dell’HOLD 

contiene i nomi dei giocatori (DIM M$ (P,10) ) 


Descrizione del programma 


22-34 
48-60 


100-200 
240-280 
311-480 
485-700 


1040-8400 


chiedono il numero e i nomi dei giocatori 

gestiscono la casualità dell'opzione HOLD e il program- 
ma 

opzione HOLD 

stampa rulli 

rotazione dei rulli 

controllano le combinazioni ottenute, le vincite e il pun- 
teggio 

stampano la slot machine, inizializzano tutte le variabili 
(comprese quelle di stampa) e controllano la risposta al 
messaggio “vuoi giocare ancora (s/n)?” 


Come salvare il programma 


Per prima cosa digitate il programma 
principale stando bene attenti a scrive- 
re le lettere corrispondenti ai caratteri 
grafici in modo grafico. 

La seconda operazione consiste nel 
salvarlo così: 


3 PRINT 
lot machine e' 


SAVE “SLOT MAC.” LINE 1 

Il computer si metterà quindi in attesa 
di un altro programma. Digitate allora 
il programma di creazione di caratteri 
grafici, dando alla fine RUN 1160 e sal- 
vandolo di seguito al primo in questo 


modo: 
SAVE “carslot” CODE USR “a”, 168 


INK 3; FLASH 0;"La s 


pronta per 


essere usata,ma voi forse 


no. 


arole 
LOCCALt®" 
nei momenti di bisogno.Quan 


Vorrei sprecare due p 
sull'opzione ""B 
che vi aliutera' 
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0 0 L9 


22 


do essa entra in funzione 
voi potete bloccare da la 


5 rulli contemporaneame 
nte " 
PRINT INK 3;"semplicemente 


schiacciando i tasti co 
rrispondenti da ] a 5. Ora 
siete pronti anche voi!" 
PRINT INK 2;AT 14,7; "BUON 
DIVERTIMENTO!": PRINT 
INK ]1;AT 20,9;"PREMI UN TA 
STO” 
FOR A=0 TO 7 
BORDER A 
PAUSE 3 
IF INKEYS$="" THEN GO TO 13 


IF INKEY$<>"" THEN 
GO TO 15 

GO TO 6 

NEXT A 


GO TO 6 
REM XXKKKKKKKKKKXXXKKXXX* 


KKKkAk 

REM SY CICOrti 

REM KKKKAKKAAKAKAKKAKKAKKAKKAKAKAAA 
KKKAKKKAX 

REM 2/4/84 

REM KKAKKAKKAKKAKKKAKAKKAKKAKKAKAKAKAKKAKAKAAK 
* x 


REM 
{4G8} 


REM KKAKKAAKAKAKAAKAKKAKAKKAKKKAKKAKKAKKAKKKAA 
xk, 

CLS : BORDER 7: PRINT AT 10 
0; PAPER 4; INK 0;"In quan 
ti volete giocare(1-4) ?" 


SLOT MACHINE 
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195 


200 


LET PS$=INKEYS 
IF P$S<«CHRS$ 49 OR PS>CHRS$ 52 
THEN GO TO 23 
IF PS<>"" THEN GO TO 27 
GO TO 23 
LET P=VAL PS 
DIM M(P): DIM M$(P,10) 
LET M=50 
POKE 23658,8 
FOR Z=1] TO P 
INPUT "Scrivi il tuo nome(m 
ax. 10©sett,.) "5 LINE MS(Z) 
NEXT Z 
POKE 23658,0 
GO SUB 720: 
REM GRAFICA 
GO SUB 290: REM ROTAZIONE 
IF RND>.75 THEN GO SUB 70 
? REM HOLD 
IF M(X)=0 AND V<P THEN 
PRINT AT 0;0;" 
PRINT AT X*2,]7; INK 2;MS(X 
) FAT x*2,27;"$";M(X) 
RESTI Xi-GO..TO-31 2 
REM HOLD 
POR T=1 TO../t..BEEP.....1.550- 
Ma i NENTP 
PRINT AT 17,22; FLASH 1; 
INK (RND*4); "BLOCCA!" 


15 LET QS$=INKEYS 


IF Q$=CHRS 13 THEN GO TO'] 
90 

IF QS<CHRS 49 OR QS>CHRS 53 
THEN GO TO 115 
rese” THEN. 0 TOCSTAU 
MIOPSTo: PI 5 

LET Q=VAL OS 

LET Q(0)=0Q 

BEEP 0.08,4+0*2 

PRINT AT 11+Q,20; INK (RND* 
#3: FLASH..lis"BloGoato> “50 
GO TO 115 

BEEP 0.08,15 i 
PRINT AT_11.,40f° e 
AT 12,400 VE 

AT 13460 sa 

AT 14,400 STAT | 
5,40" SERI .L0, 20 


r 
PRINT_RE Fk" 


GO. TO-31:3 


220 


240 


REM 
{6G8} 
PRINT AT 6,1;A$(A(1));AT i: 
1;B$(A(1)) 


PRINT AT 6,4;A$(A(2));AT 7, 

4;B$(A(2)) 

PRINT AT 6,7;A$(A(3));AT 7, 

7;B$(A(3)) 

PRINT AT 6,10;A$(A(4));AT 7 
r10;B$(A(4)) 

PRINT AT 6,13;AS(A(5));AT 7 


STAMPA RUOTE 


1133 ;B$ (A(5)) 
RETURN 
REM ROTAZIONE{8G8} 


FOR X=1] TO P: LET M(X)=50: 
NEXT X 
FOR X=1 TO P 
IF V=P OR V>P THEN PRINT 
AT 20,0; "Vuoi giocare ancor 
a(/)?"; INVERSE }l; 
FLASH ];AT 20,20;"s 
INVERSE 0;AT 20,22; 
GO TO 8200 
IF M(X)=0 THEN GO TO 55 
PRINT AT X*2,]7; INK RND*4; 
FLASH 1;M$(X) 
LET M(X)=M(X)-10 
LET W=0 
LET Oga"": LET PSs"" 
PRINT AT-:20,;05;5' FLASH: tg 
PAPER ]; INK 7;" Premi ENT 
ER per tirare la leva" 
IF INKEYS<>"" THEN 
GO TO 360 
IF INKEY$="" THEN GO TO 37 
0 
IF INKEYS>CHRS$ 13 OR 
INKEY$<CHR$ 13 THEN 
GO TO 360 
PRINT AT 20,0;" 


ton” . 


PRINT AT X*2,28; FLASH 1; 
INVERSE 1]; INK (RND*4);M(X 
); FLASH 0; INVERSE 0;" " 

FOR Z=1] TO 8 

FOR B=1 TO 5 


IF Q(B)=B THEN GO TO 450 
BEEP .008,Z*B 

LET A(B)=INT (RND*5)+] 
NEXT B 
GO SUB 210 

NEXT Z 

DIM Q(5) 


REM PUNTEGGIO 


485 


490 


500 


505 


507 


510 


PO!": 


A(4)) OR (A(2)=A(3) 


IF A(1)=A(2) AND A(2)=A(3) 
AND A(3)=A(4) AND A(4)=A(5 
) THEN LET Q$=" JACKPOT!! 
": LET W=200: G0 TO 520 
IF (A(1)=A(2) AND A(2)=A(3) 
AND A(3)=A(5)) OR (A(1)=A( 
2) AND A(2)=A(4) AND A(4)=A 
(5)) OR (A(1)=A(2) AND A(2) 
=A(3) AND A(3)=A(4)) OR (A( 
1)=A(3) AND A(3)=A(4) AND A 
(4)=A(5)) OR (A(2)=A(3) 

AND A(3)=A(4) AND A(4)=A(5 
)) THEN LET QS$="4 DI UN TI 
LET W=100: Go TO 520 
IF (A(1)=A(3) AND A(3)=A(4) 
) OR (A(1)=A(2) AND A(2)=A( 
3)) OR (A(2)=A(3) AND A(3)= 
AND A(3 
)=A(4)) OR (A(1)=A(2) AND A 
(2)=A(4)) THEN LET Q$="3 D 
I UN TIPO!": LET W=35 

IF (A(1)=A(4) AND A(4)=A(5) 
) OR (A(2)=A(4) AND A(4)=A( 
5)) OR (A(3)=A(4) AND A(4)= 
A(5)) OR (A(1)=A(3) AND A(3 
)=A(5)) OR (A(2)=A(3) AND A 
(3)=A(5)) OR (A(1)=A(2) 

AND A(2)=A(5)) THEN LET Q 
$="3 DI UN TIPO!": LET W=35 


IF (A(1)=A(4) AND A(4)=A(5) 
) OR (A(2)=A(4) AND A(4)=A( 
5)) OR (A(3)=A(4) AND A(4)= 
A(5)) OR (A(1)=A(3) AND A(3 
)=A(5)) OR (A(2)=A(3) AND A 
(3)=A(5)) OR (A(1)=A(2) 

AND A(2)=A(5)) -.THEN LET Q 
="3 DI UN TIPO!": LET W=35 


IF A(1)=2 AND A(2)=2 OR A(2 
)=2 AND A(3)=2 OR A(3)= 

AND A(4)=2 OR A(4)=2 AND A 
(5)=2 THEN LET P$=" BONUS! 
! "2: LET W=W+15 

FOR G=1 TO 30 

BEEP .008,50-G: BEEP 
0 
NEXT G 

LET M(X)=M(X)+W 

IF Q$="" THEN GO TO 630 
PRINT AT 19,15; BRIGHT: ]; 
FLASH 1]; INK 2; PAPER 4;0$ 


+008,5 


PRINT TAB ]; BRIGHT ]; 
FLASH 1]; INVERSE 1]; INK 2; 
PAPER 4;0$ 
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590 


600 
610 


620 
630 


640 


650 


660 
670 


680 


690 


700 
730 


1040 
1050 


1060 


1070 


IF W>0 THEN PRINT AT 10,3; 


BRIGHT 1; INK 2; "VINCI $"; 


W 

IF P$="" THEN GO TO 630 

PRINT AT 10,20; FLASH 1; 
INK 5; PAPER 3;P$ 

PRINT AT 11,20; INVERSE 1; 


FLASH 1; INK 5; PAPER 3;P$ 
FOR T=1] TO 100: BEEP .008,T 
-40: NEXT T 
PRINT AT X*2,28; FLASH 1; 

INVERSE ]; INK RND*4;M(X); 

INVERSE 0 
PRINT AT 19,];" 

l «TAB 1AT E 
" 

PRINT AT 10,2; INK 0;" 

{13SG8}" 

PRINT AT 10,20;" "; 
ATAF 407" ” 


IF M(X)<] THEN LET V=V+1: 
PRINT AT 0,0; FLASH 1;MS(X 
); "NON PUOI PIU' GIOCARE": 
FOR z=4 TO 1 STEP -1: 

BEEP ]1,2z: NEXT “2: #60 ‘TO 51 


IF M(X)>499 THEN PRINT 

AT 0;0; FLASH l]l;M$(X); "MI H 

AI SBANCATO!!": PRINT AT 20 
,0;"Vuoi giocare ancora( / 
YF2":AT:Z0,20%  INVERSE -]; 
FLASH 1;"s"; INVERSE 0; 

AT 20,22;"n": GO TO 8200 

GO TO 50 

REM VARIABILI/GRAFICA 
{368} 

PAPER 7: CLS": 
PRINT AT 1,15 
{11SG8}" 
PRINT TAB 0; 


BORDER 7 
INK 0;" 


INK 0;"{2SG8}" 
; INK 4; PAPER 2; FLASH 1];" 
{9SG8}"; FLASH 0; PAPER 7; 
INK 0;"{2SG8} (sG8}" 
PRINT TAB 0; INK 0;;" 
{2SG8}"; INVERSE 1]; INK 4; 
PAPER 2; FLASH 1;"{9SG8}"; 
INVERSE 0; FLASH 0; 

PAPER 7; INK 0;"{2SG8} 
{SG8}" 
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1080 
1090 
1100 
1149 


1120 


FOR73=1 03:14 
PRINT TAB 0;"{16SG8}" 
NEXT Z 
PRINT TAB 0;"{SG8}"; 
PAPER 6; INK 3; FLASH ];" 
{11SG8}"; FLASH 0; PAPER 7; 
INK 0;"{4SG8}" 
PRINT TAB 0;"{SG8}";: 
PAPER 6; INK 3; FLASH ]; 
INVERSE 1;"{11SG8}"; 
FLASH 0; INVERSE 0; 
PAPER 7; INK 0;"{4SG8}" 
PRINT TAB 0;"{16SG8}" 
FOR E=1] TO P_ 
PRINT AT E*2,17; 
) AT E*2,27:"$"-M 


INK 2;MS(E 


NEXT E 

PRINT #0; INK 2; INVERSE 1E- 
"1984 © SLOT MACHINE ®© by C 
.Corti"; INVERSE 0 

LET X=0 

LET V=0 

DIM A$(5,4): DIM B$(5,4): 
DIM A(5): DIM Q(5) 

REM 

REM 

REM 

REM "A" e "B" in modo G 
REM 


LET A$S(1)=CHR$ 16+CHRS 2+"A 
"yi up" "i. 
REMO 
REM "C" e "D" in modo G 

REM 

LET B$(1)=CHR$ 16+CHRS 2+"C 
"4 "p" e 
REM 
REM 


REM 
LET A$S(2)=CHRS 16+CHRS 5+"E 
uyupn A 
REMO 
REM 


"E" e "F" dih'modo”G 


"Ge" e "H" in modo G 

REM 

LET B$(2)=CHR$ 16+CHRS 5+"G 
ny uy" è i 
REMO 
REM "I" e #*E" ih0modosG 

REM 

LET A$S(3)=CHRS 16+CHRS 3+"J 
ta #0 È 
REM 

REM in modo G 


cati Ss e "Mm" 


7077 
7080 


7090 
8000 


8040 
8060 


8061 
8063 


8067 
8070 


8080 
8090 


8100 
8150 


8151 
8153 


8157 
8160 


8165, 
8170 
8200 
8300 


8400 


REM 

LET B$(3)=CHR$ 16+CHR$ 3+"L 
"4 up" DE 
N" e-"0* an modo G 

REM 

LET A$S(4)=CHR$ 16+CHR$ 6+"N 
"-"o" et 
REM 


REM "P" e "0" in modo G 

REM 

LET B$(4)=CHR$ 16+CHR$ 6+"P 
pal ca ® dee 

in modo G 


na "a e nen 


REM 
Wp 


np". e" in "modo G 

REM 

LET B$(5)=CHR$ 16+CHR$ 2+"T 
UL TT 

REMO 

RETURN 

IF INKEY$="S" OR INKEYS$="s" 
THEN GO TO 15 

IF INKEYS="N" OR INKEYS="n" 
THEN STOP 

GO TO 8200 


Slot Machine 
versione per ZX Spectrum 16K /48K 


Caratteri grafici 


. REM 


PARTE UDG 


REM 

REM 

REM MELA 

DATA 0,0,121,254,0,16,63,25 
4,0,16,63,254,15,32,31,254 
DATA 31,240,15,252,51,252,7 
r248,52,254,1,224,101,254,0 


, 

REM CAMPANA 

DATA 0,128,7,240,0,128,15,2 
48,1,192,15,248,3,224,31,25 
è 


DATA 3,224,0,128,3,224,1,19 
2,3,1224,1,192,3,224,0,0 
REM CILIEGIA 


DATA 0,0,1,136,0,2,26,8,56, 
12,60,16,124,52,126,208 
DATA 127,204,61,224,124,20, 
25,240,124,36,1,224,56,72,0 
224 

REM BANANA 

DATA 0,0,0,112,4,0,0,112,2, 
0,0,1172,1,128,0,224 

DATA 1,192,1,192,0,224,3,12 
8,0,112,6,0,0,112,0,0 

REM FRAGOLA 

DATA 0,0,63,188,7,32,26,236 
19,80,15,248,1,128,5,176 
DATA 7,224,7,240,29,248,3,2 
24,55,188,1,192,61,252,0,0 
RESTORE 

FOR Z=0 TO 7 


READ A: READ B: READ C: 
READ D 

POKE USR "A"+Z,A 

POKE USR "B"+Z,B 

POKE USR "C"+Z,C 

POKE USR "D"+Z,D 

NEXT Z 


FOR Z=0 TO 7 


READ E: READ F: READ G: 
READ H 

POKE USR "E"+Z,E 

POKE USR "F"+Z,F 

POKE USR "G"+Z,G 

POKE USR "H"+Z,H 

NEXT Z 

FOR Z=0 TO 7 

READ J: READ K: READ L: 
READ M 

POKE USR "JI"+Z,J 

POKE USR "K"+Z,K 

POKE USR "L"+Z,L 

POKE USR "M"+Z,M 

NEXT Z 


FOR Z=0 TO 7 
READ N: READ O: READ 


READ Q 

POKE USR "N"+Z,N 
POKE USR "O"+Z,0 
POKE USR "P"+Z,P 
POKE USR "Q"+Z,0 
NEXT Z 


FOR Z=0 TO 7 
READ R: READ S: READ 


READ U 

POKE USR "R"+Z,R 
POKE USR "S"+Z,S 
POKE USR "T"+Z,T 
POKE USR "U"+Z,U 
NEXT Z 
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di Francesco Santi 


“Dati tot elementi di un triangolo cal- 
colarne il perimetro e l’area...” 


uesto programma permette di de- 
terminare il perimetro, l’area, i lati 
incogniti di un triangolo qualsiasi di cui 
si conoscano almeno tre elementi. 
| casi che si possono presentare sono i 
seguenti: 
1) tre lati noti 
II) due lati e l'angolo compreso noti 
III) due lati e due angoli noti 
IV) un lato e due angoli noti. 
E un programma particolarmente utile 
per tutti gli studenti medi (non ditelo al 
professore!). Comunque può trovare pa- 
recchie altre applicazioni: infatti, una 
qualsiasi figura piana non curva può es- 
sere ridotta ad un insieme di triangoli 
e, ad esempio, questo è nato per deter- 
minare le aree di stanze dalla pianta ir- 
regolare. 
Il programma inizia, dopo la presenta- 
zione, a richiedere i dati del triangolo, 
per forza di cose è necessario inserire 
i lati incogniti e gli angoli incogniti po- 
nendoli uguali a zero. 
Il secondo passo del programma, un 
volta acquisti i dati, consiste nel con- 
trollo dei dati stessi. Questo al fine di 
determinare la loro eventuale insuffi- 
cienza od erroneità, per poter poi de- 
terminare la strategia di soluzione. At- 
tenzione, però: introducendo dati inve- 
rosimili è possibile, a volte, il blocco 
del programma. In questo caso ridate 
pure tranquillamente RUN e ricomin- 
ciate da capo. 
Le due routine RUOTA LATI e RUOTA 
ANGOLI servono appunto a ruotare i la- 
ti e gli angoli allo scopo di avere sem- 
pre come primo lato quello noto. 
Ultima cosa: gli angoli vengono inseri- 


Soluzione dei triangoli 


versione per ZX Spectrum 16K/48K 


10 BORDER 6: INK 2: 


FLASH 1: CLS 
20 REM SOLUZIONE 
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DEI TRIANGOLI 


ti in gradi sessagesimali. 

Una volta scelta la strategia il triango- 
lo viene risolto facendo uso alle funzioni 
trigonometriche dello SPECTRUM. 
Quindi, per poter disegnare il triango- 
lo, il programma procede a un test nel 
quale definisce il parametro K col qua- 
le verranno poi moltiplicati i risultati; 
successivamente viene disegnato sullo 
schermo un triangolo di lati = K*lati 


reali. 

Infine sullo schermo appaiono i risultati 
finali. 

Il programma abbanda di REM esplica- 
tive, e la sua struttura è notevolmente 
lineare così che la sua comprensione 
non determinerà grandi difficoltà. Po- 
trà anche esservi d'aiuto per rispolvera- 
re le vostre conoscenze di trigonome- 
tria... 


30 PRINT AT 5,9;"{SG2}{2SG8} 


PAPER 5: 


{SG7} {SG2}{2SG8}{SG7} 
{SG2}{2SG8}{SG7}" 


40 PRINT AT 6,9;"{SG8}{G2} 


{SG8}{SG3} 
{SG5}" 


{SG8}{G2}{G7} 


y_ 


51 


Sé 


So 


54 


55 


56 


57 
60 
65 


6 6 


6 7 


PRINT AT 7,9;"{SG8}{SG7} 
{G4}{SG7} {SG8}{G3} 
{SG8}{SG7}{SG2}{SG5}" 


PRINT AT 8,9;"{G7}{25SG8} 
1623} 1G7){2SG8}LG2} {67} 
{2SG8}{G2}" 

PRINT AT 13,3;"{SG2}{SG7} 
[DA)ASCT) 15802)(2S68}{SGT} 


. {G4}{2SG8}{SG7} {SG2}{SG8} 


{SG1} {SG8} {SG2}{SG1}" 
PRINT AT 14,3;"{4SG8} 
{SG8}{SG3} {G5}{SG5} 
{SG8}{SG3}{SG8}  {SG8} 
{G5}{SG4}{G7}{SG5}" 

PRINT AT 15,3;"{SG8}{G1} 
{G2}{SG8} {SG8}{G3} {G5} 
{SG5} {SG8}{G7}{SG1} 

{SG8} {SG8}{SG1}{SG2} 
{SG8}" 

PRINT AT 16,3;"{SG8} 

{SG8} {G7}{25SG8}{G2} {G5} 
{SG5} {SG8} {G7}{SG5} 
{SG8} {SG8}{G2}{G1}{SG8}" 
LET T=2: GO SUB 100 

#IASH 0: BRIGHT 1: CLS 
PRINT AT 2,7;"* PRESENTAZIO 
NE * " 

PRINT AT 5,2; "questo progra 
mma ti permette"'"di risolv 


ere un qualsiasi"'"triangol 
o conoscendone almeno 3"'"e 
lementi" 

PRINT AT 11,2;"presta molta 
attenzione alle"'"istruzio 
ni che seguono"'""'" premi 


Y per continuare" 


PRINT AT 21,1];" " 

PRINT 

BRINT_:" RICORDATI** 

PRINT " il primo lato si c 

hiana -a"*" il secondo 

b'" ‘il esso 
ce" 

PRINT 

PRINT " il primo angolo e' 
quello"'" compreso fra i 1 
ati murm b e pr i 
PRINT 

PRINT " il secondo angolo 
e' quello"'" copreso fra i 
tak14 a-@ cc" 

PRINT i 

PRINT " il terzo angolo e' 
quello"'" compreso fra i l 
2 nta (Ret a e b" 

PRINT 


850 


870 


880 


890 


900 


905 
906 


910 
9715 
920 


930 


940 


9565 


960 


965 


PRINT " premi per continua 
re" 

GO SUB 100 
PAUSE 0 


REM routine suono 
FORGIATO T 

BEEP .1,-7 

BEEP .1,=-4 

BEEP .1,2 

BEEP. 
NEXT i 
BEEP ..Lé& 

BEEP .1,-4 

NEXT i 

RETURN 

REM lettura dei dati 

LET P=180/PI 

INPUT "Lunghezza lato a",A 
INPUT "Lunghezza lato b",B 


INPUT "Lunghezza lato c",C 
LET a$="ampiezza dell'angol 
Oo” 
LET b$=",angolo compreso fr 
a 1 lati” 
PRINT "Quant*'e' 1'"ra8*; "AL 
Fa":b$':"B e C" 
INPUT ALFA: CLS 
LET ALFA=ALFA/P 
PRINT "Quante? 1!" 265! BE 
PA":b$' "A e C" 
INPUT BETA: CLS 
LET BETA=BETA/P 
PRINT "Quant'e* :1'": as”: "GA 
MMA";b$';"A e B" 

INPUT GAMMA: CLS 

LET GAMMA=GAMMA /P 


REM scelta della soluziohe 
GO SUB 5350 

IF A<>0 AND B<>0 AND C 

<>0 THEN GO TO 1000 

IF A<>0 AND B<>0 AND GA 
MMA<>0 THEN GO TO 2000 

IF A<>0 AND B<>0 AND AL 
FA<>0 AND BETA<>0 

THEN GO TO 3000 


IF A<>0 AND BETA<>0 
AND GAMMA<>0 THEN 
GO TO 4000 

IF A<>0 AND ALFA<>0 
AND BETA<>0 THEN 
GO TO 4000 

IF A<>O0 AND ALFA<>0 
AND GAMMA<>0 THEN 
GO TO 4000 
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970 


VA 
975 
1000 
1010 
1020 
1030 


1040 
2000 


2010 


2020 
3000 


3010 
3020 
4000 
4010 
4020 


4030 


CLS >" PRINT AT':V1,,.09 i 
INVERSE l]l;"dati insufficie 
nti!"'"ricominciamo a legge 
re i dati": LET T=10: 
GO SUB 100 
PAUSE 0: CLS INVERSE 0 
GO TO 800 
REM caso dei tre lati noti 
LET ALFA=ACS ((B12+C12-A12) 
LAREBAG) ) 
LET BETA=ACS ((A12+C12-B12) 
PASTRTCRI 


LET GAMMA=ACS 
)}/ (2*A*B):) 

GO TO 6000 
REM caso due lati e angolo 
compreso noti 

LET C=SQR ((A12+B12-2*A*B* 
COS (GAMMA) )) 

GO TO 1010 
REM caso due lati e due ang 
oli noti 

LET GAMMA=PI-ALFA-BETA 

GO TO 2000 

REM caso un lato e due ango 
li noti 

IF ALFA=0 THEN LET ALFA= 
PI-BETA-GAMMA 


((A12+B12-C12 


IF BETA=0 THEN LET BETA= 
PI-ALFA-GAMMA 
IF GAMMA=0 THEN LET GAMMA= 


PI-ALFA-BETA 
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LET A2=A/SIN (ALFA) 

LET B=A2*SIN (BETA) 

LET C=A2*SIN (GAMMA) 

GO TO 6000 

CLSUSCPRINT AT 10,105 "DATI" 


PRINT ATCI),10s ERRATI" 
LET T=50: GO SUB 100 

GO TO 800 

LET B=A: LET A=C: LET C=0 
GO SUB 5390 

GO TO 920 

LET -A€C: LET C=Bf _GET_CE0 
GO SUB 5390 

GO TO 920 

REM coordinate dei vertici 
LET XB=b50: LET YB=50 
FOR:1=2)} TO -21] STEP -1 
LET K=i 


IF 50+K*A<255 AND 50+K*A-K* 
B*COS (GAMMA)<255 AND 50+K* 
B*SIN (GAMMA)<i75 AND 50+K* 
C*COS (BETA)>0 THEN 
GO "105325 
NEXT i 
LET XC=K*A: LET YC=0 
LET XA=-K*B*COS (GAMMA): 
LET YA=K*B*SIN (GAMMA) 
LET XXB=-K*C*COS (BETA): 
LET YYB=-K*C*SIN (BETA) 
RETURN 
REM routine ruota lati 


IF A<>0 AND C=0 THEN 
RETURN 

IF A<>0 AND B<>0 AND C 
<>0 THEN RETURN 

IF A<>0 AND B=0 THEN 
GO TO 5050 

IF A=0 AND B=0 AND C=0 
THEN GO TO 970 


IF A=0 THEN GO TO 5100 


RETURN 

REM routine ruota angoli 
LET DELTA=ALFA i 
LET ALFA=BETA: LET BETA=GAM 
MA 

LET GAMMA=DELTA 

RETURN i 
REM routine disegna triango 
lo 

PLOT XB,YB 

DRAW XC,YC: DRAW XA,YA: 
DRAW XXB,YYB 


PAUSE 200: CLS 
RETURN 
CLS : REM conclusione 


6005 IF A>B+C OR B>A+C OR C>A+B 
THEN GO TO 5000 

6006 IF ALFA>PI OR BETA>PI 
OR GAMMA>PI THEN GO TO 5 


000 Per ricevere la cassetta contenente 
6007 IF ALFA<0 OR BETA<O OR GAMM i programmi di SUPERSINC 
A<O THEN GO TO 5000 compilate e spedite il coupon qui sotto! 


6008 GO SUB 5300 

6009 GO SUB 5500 

6010 LET ALFA=ALFA*P: LET BETA=B 
ETA*P: LET GAMMA=GAMMA* P 

Iene PRINDCAT S.,lg lati", " 
angoli" 


6205 PRINT 

6210 PRINT "a=":A,"alfa=";ALFA 
6220 PRINT 

6230 PRINT "b="=B,"beta=":BETA 
6240 PRINT 

6250 PRINT "c=";C,"gamma=";GAMMA 


6260 PRINT 

6261 PRINT "il perimetro vale:"; 
A+B+C 

6262 PRINT 

6265 PRINT "l'area vale:";A/2*B* 
SIN (GAMMA/P) 

6266 PRINT 

6270 PRINT "questi sono i risult 
ati."'"se vuoi risolvere un 


Per i residenti all’estero — pagamento anticipato (vaglia o versamento su ns. ccp) 


CITE LI ANTE SR IO RI TREO 
e A PR E RO RI AA RA 


buono d’ordine per la cassetta contenente i programmi pub- 
cul n! GA no DIM i ZIA 


blicati sul numero... di SUPERSINC 


altro"'"triangolo premi CO È 
NT " ra 
6290 PRINT "se vuoi anche rilegg $ 
ere"'"le istruzioni premi R 2 
UN" ò 
6300 LET T=10: GO SUB 100: 2 
STOP î 
6305. CLS r 


6310 GO TO 800 
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SUPERSINC N° 5 
sarà in edicola 
ai primi di novembre 
Non perdetelo! 


Cl'Assegno allegato 1%... 
O Ho versato l’importo sul ccp. n° 19445204 intestato a J.soft - Milano 
L Pagherò in contrassegno al postino al ricevimento delle cassette 


contenenti programmi pubblicati sul numero..... 
O Ho spedito l’importo a mezzo vaglia postale 


O Contanti allegati 


J.soft - Via Rosellini, 12 - 20124 Milano - Tel. 6888228 
i ie I RO RIA DL 0 


da compilare e spedire in busta chiusa a 


CEDOLA DI ORDINAZIONE - CASSETTE 


SUPERSINC 


linoinn® 1 __L_Ldd 


di Hugh Walker 
trad. e adatt. di 
Paolo Maffei 


Pericolo, magia, mostri e tesori vi 
aspettano in questo super gioco di 
avventura per lo Spectrum 48K 


Uno dei problemi dei giochi di avven- 
tura consiste nel fatto che questi ven- 
gono spesso completati grazie alla co- 
noscenza del programma introdotto. 
In questo programma sono stati adot- 
tati due metodi per eliminare, per 
quanto possibile, questo problema. 
Prima di tutto sono stati eliminate i e 
REM illustrative e le linee sono state 
introdotte in maniera illogica; inoltre è 
stato fatto un grande uso di funzioni 
RND per mantenere viva la suspence 
durante il gioco. 

Interpretate il ruolo di un giovane eroe 
il cui compito è quello di introdursi nel 
castello di Warlock e di trovare tutte le 
monete d’oro, usando le chiavi per 
aprire le porte chiuse e combattendo 
con i mostri di guardia al tesoro, arma- 
to solo di una spada, di uno scudo e 
del vostro... coraggio. Ogni chiave che 
trovate può esser usata una sola volta, 
ma non tutte le porte sono chiuse. 
Per trovare le monete d’oro e le chiavi 
dovete aprire porte, esplorare corridoi 
e combattere, se necessario, con i mo- 
stri; potrebbe capitare comunque di 
non trovare nulla e ci verrebbe quindi 
offerta la possibilità di riposarvi per ri- 
mettervi in forma. 

La vostra forza, infatti, è limitata e si ri- 
duce ad ogni combattimento. 
All’inizio del gioco Warlock non è nel 
castello, ma, state attenti, potrebbe ri- 
tornare in qualsiasi momento e allora 
saranno guai... infatti , se Warlock vi 
sorprenderà, sarà molto difficile scap- 
pare e, inoltre, il malvagio potrebbe 
usare le sue arti magiche per trasfor- 
marvi in un piccolo animaletto, por- 
tandovi via tutti i punti-coraggio con- 
quistati. 

Quando avrete recuperato tutte le mo- 
nete d'oro dovrete uscire dal castello. 
Per uscire dovrete attraversare una 
porta posta al livello (piano) 0. 

Ogni volta che vi troverete di fronte ad 
un mostro o a Warlock stesso avrete 
due possibilità: “combattimento” o 
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e sencastte. 


“fuga”. Non avete la capacità e l’espe- 
rienza per uccidere gli avversari (ricor- 
datevi che siete solo un giovane ine- 
sperto), ma potete solo costringerli al- 
la fuga e ferirli. 

Comunque non è sempre facile vince- 
re i duelli: ricordatevi che ad ogni com- 
battimento diminuisce la vostra forza e 
che quando questa si esaurisce com- 
pletamente avete perso la partita. 

Se decidete comunque di scappare 
verrete considerati dei codardi, perde- 
rete punti-coraggio, e rischierete di per- 


dere qualche moneta d’oro e 4 ere 
intrappolati dal mostro. 

All’interno del castello troverete le al- 
tre seguenti situazioni: “porta”, ‘“corri- 
doio”, “scala”. 

Solo il computer conosce l’esatto nu- 
mero di monete d’oro da trovare di cui 
voi non sarete a conoscenza finché 
non le avrete recuperate tutte (sarà co- 
munque un numero di monete com- 
preso fra 1500 e 2500). Per registrare 
il programma, digitate GO TO 9000. 
Buona fortuna! 


Opzioni del programma 


1 Porta (potrebbe essere chiusa) avete due scelte: “apri” o ‘“pro- 
segui”. 

Se aprite la porta potete trovare delle monete d’oro... o 
un mostro... o nulla. In questo caso dovete proseguire. Se 
la porta è chiusa e non ne avete la chiave dovete prose- 
guire... con la possibilità di incontrare un mostro. 
Scelte: “ti muovi”, “esplori”, “situazione”. 

‘ti muovi”: muovendovi indietro o lateralmente può ca- 
pitarvi di urtare il capo contro una trave causandovi una 
perdita di energia; muovendovi in avanti non correte 
questo pericolo perché riuscite a vedere la trave! 
“esplori’’: potete trovare delle monete d’oro, una chiave, 
del vino e del cibo per rimettervi in forma, un mostro, 
un'altra situazione o nulla, dovendo in tal caso così pro- 
seguire con i soliti rischi. 

‘situazione’: vi viene presentata una situazione in cui vi 
trovate in quel preciso istante: livello, mostri, etc. 

3 scelte: “su”, “giù”, “prosegui”. 

Non saprete se la scala va su o giù finché non avrete ten- 
tato. Se sbagliate dovete proseguire. 


3 Scala 


Descrizione delle variabili 
matrici dimensionate 


m$(9,15) il nome di ogni mostro (e di Warlock) 

a$(3,12) le tre situazioni trovate (porta, corridoio ( porta, corri- 
doio, scala) 

k$(3,6) le tre piccole creature in cui potete essere trasformati. 

m(9) la resistenza di ogni mostro ai vostri colpi. 

n(9) la resistenza di ogni mostro a opporsi ai successivi colpi 

g(9) il valore che incrementa i punti-coraggio quando batte- 
te un mostro (linee 3090 e 3110). 

z(11) la lunghezza dei BEEP nella linea 4000. 

y(11) il tono dei BEEP nella linea 4000. 


variabili semplici: 


record, aggiornato ad ogni partita. 
punti-coraggio 
quoziente-coraggio, aumenta se si vince un duello. 
il numero dei mostri battuti. 
la potenza del vostro colpo durante il combattimento 
(scelta casualmente). 
il valore del decremento di resistenza del mostro ai col- 
pi successivi. 
valore casuale tra 1 e 9 per scegliere il mostro da m$( ) e 
i relativi valori di m, n, g,. 
la vostra forza, inizialmente al valore 500; questa dimi- 
nuisce combattendo o ferendosi il capo; aumenta ripo- 
sandosi. 
il valore di decremento della variabile ‘str’ quando vi fe- 
rite il capo contro una trave (scelto causalmente). 
il numero di monete d’oro da trovare. 
variabile logica che cambia corso al programma quan- 
do è stato raggiunto ‘tres’; essa evita dei trovare altre 
monete e vi permette di uscire (linea 1630) quando siete 
al livello 0. 
csh il numero di monete in vostro possesso. 
cn il numero di monete di volta in volta trovate. 
ky il numero di chiavi in vostro possesso. 
Wwy valore casuale scelto tra 1 e 3 per scegliere a$ e per de- 
terminare il GOSUB nella linea 140 . 
fl il livello (piano) in cui vi trovate. 
bp variabile usata nelle linee 400-460; 
bp = + l: su, bp = l: giù; 
questa variabile inoltre modifica ‘fl’ e il tono dei Beep 
nella linea 460. 
(*) punti-coraggio sono così calcolati: csh + (ky + 5) + hq e vengono ag- 
giornati ogni volta che si cambia situazione. 
Nel corso del programma ‘f’, ‘i’ e ‘h’ vengono usate come variabili in diversi 
cicli FOR-NEXT. 


Descrizione del programma 
Linee Commento 


20 inizializza il record per le successive partite. 

50-60 inizializzano ogni partita (routine completata con la 
chiamata della subroutine 5000-5500). 

100-150 routine principale alla quale tutte le altre ritornano. 
Sceglie e scrive le diverse situazioni e determina il rela- 
tivo GOSUB . 


Situazioni: (linee 200-460) 


200-220 scrive ‘corridoio’ e determina le scelte con GOTO 500, 
600 e 700 

300-330 scrive ‘porta’ e determina le scelte con GOTO 800 o 
8200 

400-460 scrive ‘scala’ e determina le scelte; routine completa. 


Riviste firmate 
JACKSON 


Bit 

La prima Rivista europea di personal computer, 
software e accessori. Con test, novità, analisi del 
mercato... 


11 numeri all'anno. L. 4.000 a numero 
Abbonamento: solo L. 35.000 


Aspetti e problemi del software per personal 
computer, programmi, giochi e sistemi operativi. 
10 numeri all'anno. L. 3.500 a numero 
Abbonamento: solo L. 28.000 


INFORMATICA 


La Rivista professionale per chi si occupa di 
sistemi: dai microcomputer ai mini, ai supermini, ai 
mainframe. Con notizie in anteprima dall'America. 
11 numeri all'anno. L. 3.000 a numero 
Abbonamento: solo L. 27.000 


La guida indiscussa al fantastico mondo dei 
videogames. La più eccitante, divertente, istruttiva 
rassegna del settore. 
11 numeri all'anno. L. 3.000 a numero 
Abbonamento: solo L. 25.000 
Gietttonica 

OGGI 
Da sedici anni il punto di riferimento più qualificato 
per chi voglia aggiornarsi su prodotti, applicazioni, 
tecnologie, mercati, in Italia e all'estero. 
11 numeri all'anno. L. 3.500 a numero 
Abbonamento: solo L. 31.000 


l'Elettronica 


Quindicinale di politica industriale, 
componentistica, informatica e telecomunicazioni 
per uomini di marketing, responsabili acquisti, 
manager di settore. 

22 numeri all’anno. L. 2.500 a numero 
Abbonamento: solo L. 44.000 


AUTOMAZIONE 


Un'aggiornatissima panoramica delle nuove 
tecnologie microelettroniche e informatiche 
applicate all'automazione industriale. 

11 numeri all'anno. L. 3.000 a numero 
Abbonamento: solo L. 26.000 


E ecomunicazioni 


Le frontiere aperte dalla telematica, le 
telecomunicazioni professionali in tutti i loro 
sottosettori. 

8 numeri all'anno. L. 3.500 a numero 
Abbonamento: solo L. 22.000 


elektor 


Il mensile di elettronica venduto in mezzo milione 
di copie e redatto in 7 lingue. Con articoli su: 
applicazioni, progettazioni, sperimentazioni, 
invenzioni. 

10 numeri all'anno. L. 3.000 a numero 

‘Numero doppio’ L. 6.000 

Abbonamento: solo L. 29.000 


Il mondo delle 7 note in versione... elettronica. Con 
test strumentali, novità e analisi del mercato, 
servizi speciali. 


10 numeri all'anno. L. 3.000 a numero 
Abbonamento: solo L. 24.000 


Quando l’informazione 


pon a 
| Gruppo Editoriale Jackson - via Rosellini, 12 - 20124 Mi 
I O Desidero ricevere GRATIS un numero della 


Aivioto. dor’ _e_i na 
(allego L. 1.000 in francobolli per contributo spese di 
spedizione) 


| O Inviatemi GRATIS il Catalogo della Biblioteca JACKSON 


(allego L. 1.000 in francobolli per contributo spese di 
spedizione) 


Cognome 
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Risposte alla routine ‘corridoio’ (linee 500-780) 


500-520 opzione ‘ti muovi’ con INKEY$ “1” nella linea 220; pre- 
senta le diverse opzioni. 

600 opzione ‘esplori’ con INKEY$ “2” nella linea 220; usa un 
GOTO 1650. 

700-780 opzione ‘situazione’ con INKEY$ “3” nella linea 220; 
scrive ciò che si possiede, il punteggio, il livello in cui ci 
si trova e ritorna alla linea 200 quando si è pronti. 


Risposte alla routine ‘porta’ 


800 opzione ‘apri’ con INKEY$ “1” nella linea 320. Scelta 
casuale fra GOTO 1500 (porta chiusa) o GOTO 1600 
(porta aperta). 


Risposte alla routine ‘esplori’ e ‘porta aperta’ 


100-1460 

100-1800 routine ‘incontri un mostro’; sceglie il mostro, presenta 

1650-8200 l'opzione ‘combatti’ (GOTO 3000) o ‘scappi’ (GOTO 
8500), dà la possibilità al mostro di rubarvi alcune mo- 
nete d’oro e, se incontrate Warlock, di essere trasforma- 
to in un animaletto (GOTO 1700). 

1100-1150 routine ‘trovi dell'oro’, dalla linea 1650 o 3130. Control- 
la quante monete sono state trovate e le somma a quelle 
già in vostro possesso e scrive il totale; controlla inoltre 
se è stato raggiunto il numero di monete da trovare. 

1200-1220 routine ‘hai trovato una chiave’; dalla linea 1650 o 3130 
Determina a caso se farvi trovare o meno una chiave; se 
la chiave viene trovata la somma alle precedenti. 

1300 routine ‘non c'è nulla’; utilizza le linee 8000-8210 per 
completare la routine. 

1400-1460 routine ‘riposati’; determina a caso se farvi riposare o 
meno; in caso affermativo aumenta la vostra forza. 


Continuazione alla routine ‘porta’ (linee 1500-1650); 


800 dalla routine ‘porta chiusa’; controlla se avete la chiave; 
se non la possedete GOTO 6500. 
Se invece l'avete chiede se la volete usare; dopo di che 
decrementa il numero di chiavi in vostro possesso e va 
alla linea 1600. 

1600-1650 routine ‘porta aperta’ (dalla linea 1550 o 800). Usa la li- 
nea 4100 per i Beep, controlla se la partita è stata termi- 
nata e sceglie a caso fra GOTO 1000, 1100, 1200, 1400. 


Routine ‘fine’ (linee 1700-2050) 


1700-1770 routine ‘triste conclusione’ (Warlock usa i suoi poteri 
magici). 
Determina e scrive k$ e usa le linee 1900-1950 per com- 
pletare la routine. 
1800-1880 routine ‘finale vittorioso’: scrive il punteggio ottenuto e 
usa le linee 1900-1950 per completare la routine. 
1900-1950 routine ‘record’ e ‘giochi ancora?. 
Aggiorna il record e chiede se volete fare un’altra parti- 
ta; se ‘SI va alla linea 50 altrimenti STOP. 
2000-2050 routine ‘non hai più forza’; Scrive il messaggio e usa le 
linee 1850-1950 per completare la routine. 
2500-2570 routine ‘hai trovato tutte le monete”. À 
Scrive il messaggio e pone la variabile logica ‘tr’ ugua- 
le a 1, quindi ritorna alla routine principale (linea 100). 


Routine ‘combattimento’ (linee 3000-3130) 


3000-3040 calcolano l'intensità del vostro colpo, decrementano la 
forza, controllano se hanno ferito il mostro; se si, GOTO 
3050; se no GOTO 1050 per un altro tentativo. 

3050-3130 calcolano in che misura avete ferito il mostro, decre- 
mentano la sua resistenza; se il mostro è ancora in gra- 
do di combattere si ritorna alla linea 1050, altrimenti 


aumentano i punti-coraggio; quindi GOTO L1100- o 
1200. 
3500 subroutine ‘titolo’. Scrive il titolo usato in varie parti del 
programma. 
4000-4500 routine Beep 
5000-5190 routine d'inizio; 
Dimensionamento matrici, istruzioni READ per la lettu- 
ra dei DATA nelle linee 7500-7800, istruzioni, inizializ- 
zazioni delle variabili; viene poi utilizzata la linea 5500 
per continuare. 
5500 usata per proseguire il programma 
‘6000-6050 ‘il mostro ti porta via alcune monete d’oro’ dalla linea 
1040. 
Scrive il messaggio ed aggiorna la variabile “csh”; se 
erano state trovate tutte le monete viene resettata la va- 
riabile “tr”. 
6500 i routine “no”; dalle linee 1510 e 1540. Utilizza GOTO 
8000 per continuare. 
8000 . routine ‘prosegui’; dalle linee 320, 430, 1300, 1460 e 
6500; porta alla linea 8200. 
8200-8210 viene determinato a caso se incontrare un altro mostro; 
dalle linee 330, 420, e 8000. 
8500-8530 routine “scappi”; dalla linea 1070. 
Scrive “Codardo”, decrementa i punti-coraggio, quindi 
sceglie fra: 
8520 (a) vi vengono portate via alcune monete d’oro utiizzan- 
do GOTO 6010 per aggiornare la variabile “csh”. 
8540 (b) rimanete intrappolati; ritorna alla linea 1050 per un 
altro tentativo. 
9000-9050 routine per il salvataggio su nastro del programma; que- 
sta routine è accessibile con BREAK: GOTO 9000. 


Warlock 420 IF INKEY$="3" THEN GO TO 8 
versione per ZX Spectrum 48K 200 
LOSREÎ RU VARCOCK - asa 430 IF INT (RND*3) THEN 
20 LET hi=0 PRINT '"Non puoi andare "; 
50 PAPER 0: INK 9: BORDER 0: ("su'" AND INKEY$="]");("gi 
pupe u'" AND INKEY$="2");: 
60 CO SUB 5000 PAUSE 60: GO TO 8000 
100 LET wy=INT (RND*3)+] 440 LET bp=(INKEY$="]")-( 
110 CLS : PRINT "Hai trovato "; INKEY$="2") 
a$ (wy) 450 LET £1=fl+bp: PRINT '" O.K. 
120 LET hr=csh+ky*5+hq Ora sei al livello ";fl 


140 GO SUB 100+100*wy 

150 GO TO 100 

200 PRINT '"(1)Ti muovi;(2)Espl 
orip"t'*(3YSituazione” 


460 FOR f=2 TO 30 STEP 2: 
BORDER INT (£/4): BEEP .05 
,f*bp: NEXT f: BORDER 0: 


210 PAUSE 0: IF INKEYS<"1" OR ETORN 
INKEYS>"3" “THEN: GO CUTO=210 500 PRINT '"(l)Avanti; (2) Ind 
220 GO TO 400+100*VAL INKEYS ietro"'"(3)Sinistra; (4)Des 
IG@GUPRIMP**ET} Sapfi (2) prose tea" 
gui" 510 PAUSE 0: IF INKEYS>"]" 
310 PAUSE 0: IF INKEYS<"]l" OR AND INT (RND*2) THEN 
INKEY$>"2" THEN GO TO 310 PRINT '"Hai urtato una tra 
320 IFYINKEYS:="1]"cTHEN\AG0 TO 8 ve"''"e ti sei ferito il ca 
00 po.": GO SUB 4500: LET wl= 
330 GO TO 8200 INT (RND*5)+1: LET str=str- 
400 4PRINT 291) SU PI 2g 5 - ( wWl®€TPOSs PRINDO! 07075 RB1 1” 
3) prosegui" 520 PAUSE 50: IF str<1] THEN 
410 PAUSE 0: IF INKEYS<"1" OR GO TO 2000: RETURN 
INKEYS$S>"3" THEN GO TO 410 600 GO TO 1650 


SUPERSINC® 4/84 - 39 


Pun ti -Corassi:io 


Sei al liwell 


CLS PRINT TAB |0s"SITUAZI 

ONE" 

PRINT *"Hai:" 

PRINT 'TAB 7;"Una spada ed 
uno scudo" 

PRINT TAB 7: Bnergia.,..... 

e 02 me SCI 

PRINT 'TAB 7; "Monete d'oro. 

a teen 

PRINT *TAB 7; "Cirene 

Mc “sky 

PRINT 'TAB 7;"Mostri battut 

ee è + ": ded 

PREST STAB 7;"Punti-coraggi 

Meilzia..a te Dr 

PRINSIGSSTAB 7: "Sei al livell 

iutret Sert GO SUB 5500: 
GO TO 200 

GO TO 1500+100*INT (RND*2) 

LET mn=INT (RND*9)+] 

CLS PRINT '" IMPROVVISAME 

Were" Incontri *»mS (mn) 

FORe£=2 TO 21: :BEEP:::04,10: 
BORDER INT (RND*7): BEEP... 

05,003 NEXT fs BORDER 0 

IF NOT INT (RND*5) AND mn=9 
THEN GO TO 1700 

IF NOT INT (RND*10) THEN 

GO TO 6000 

INPUT SEOPRINTI' 7°CosaOvuo 

i £a0eg®o*" (1) Sconbatti (2 

) scappi" 
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1410 


,1 420 


1430 
1440 
1450 
1460 


1500 


1510 


1520 


T530 


1540 


1550 


PAUSE 0: IF INKEY$<"1" OR 
INKEYS>"2" THEN GO TO 1060 
IF INKEY$="2" THEN GO TO 8 
500 

IF. INKEYS="]" THEN “GO TO 3 
000 

IF tr THEN PAUSE 50: 
RETURN 


LET cn=INT (RND* (500/(INT ( 
csh/500)+1)))+50 

PRINT "INR 6° Hai trovato 
“scns" monete:d'oro." 

LET csh=scsh+cn 

IF csh>=tres THEN GO TO 25 
00 

GO TO 4100 

IF INT (RND*2) 
PAUSE 50: 
PRINT 
ave." 
LET ky=ky+1: GO TO 4100 
PRINT "on cce' nulla!":: 
PAUSE 50: GO TO 8000 


IF INT (RND*2) THEN 

RETURN 

PRINT '"Hai trovato del vin 
o e del cibo."''"Ripdeztiz” 


LET str=str+INT (RND*50)+5: 


IF str>500 THEN LET str=5 
00 


THEN 
RETURN 
*"*Hai' Erovato una chi 


PRINT !'" 777227 22222 ZZZ24Z 

22222 22222" 

FOR. £=1. TO 5: (BEEP 1.5,-48: 
BEEP\G#2/471 PAUSE 25: 
NEXT f 

PRINT **‘"E' ora di andare 
emet PRUSE 70 

GO TO 8000 

PRINT '"La porta e'chiusa!" 


‘3 GO SUB 4500} "Hai 


la chiave?"; 


PRINT 


‘PAUSE 50: IF ky<1l THEN 
GO TO 6500 
PRINT * FLASH=DE3SDI" pi 
PAUSE 20: PRINT "Vuoi usar 
la?(s/n)" 
PAUSE 0: IF INKEYS<>"n" 


AND INKEYS<>"N" AND 
INKEYS<>"s" AND INKEYS 
Ch" eo THEN. GO TO 1530 
IF INKEY$="n" OR INKEYS="N" 

THEN GO TO 6500 
PRINT **Si..stAproLa (porta 
ee SEETkyaeky- 0 PRUSE 201: 

PRINT "US U00TICKO 


1600 
1610 
1620 
1630 
1640 
1650 


1700 
1710 


1720 


1740 
1750 


1760 
1770 


1800 
1810 


1820 


1830 


1840 


1850 


1860 


1870 


1880 


1900 


KO 


1920 


1930 


1940 


1950 


PRINT '" La porta si apre." 
l4 

GO SUB 4100 

PRIND i; di GISLATO 

IF NOT f1 AND tr THEN 

GO TO 1800 

PAUSE 50 
GO TO 1000+100*INT 
CLS GO SUB 3500 
PRINT: TAB Gr"LA TRISTE.CON 
CLUSIONE"'TAB 6; "*****X*XXX% 
KKKAKKAKAAKAKAKKAKKAAN 

PRINT ''"Sei finito nelle m 
and di WARLOCK"''"Eoli-tih 
a trasformato in ";kS(INT ( 
RND*3)+1) 
PRINT '"I tuoi punti-coragg 
io erano ";hr 


(RND* 5) 


PRINT ' INK 6; "Hai trovato 
":csh;*°monete doro.” 
GO SUB 4000 


GO TO 1900 


GO:-SUB' 3500 

PRINT PLASH 1: INK O; AT 5 
s10;"COMPLIMENTI!": FLASH 0 
Ss INK 7/ 
PRINT |‘" 
Warlock" 


PRINT 'TAB 8; "ed i suoi mos 
ji le RR, 
FOR i=] 
NEXT i 
PRINT * 
O *-csh:;" 
PRINT _ ';" Hai trowxato “sw 
*.(" chiave." ‘ANDERvadgpa (Ea 
hiavi." AND ky<>]1) 

PRINT: "" ‘Hai sconfitto "=d 
ed; (" Mostri." AND ded>])+( 
"Mostro." ANDded<=1) 
PRINT '"I tuoi punti-coragg 
10 "r(* sono SAND SBrS0) (0 
erano:" AND str<=0);hr 

IF hr>hi._ THEN‘ -bET :hi=hr 
PRINT RT: 2/20, "Record: "shi 


Hai ingannato 


TOi*3*: :GO-SUB .£1.00: 


INK 6:" Hail trovat 
monete d'oro." 


TNPEUD E 
nPoa tema 
PAUSE 0 
IF INKEYS="s" 

THEN: CLS GO TO 50 
IF -INKEXS="n" OR:--INKEYS="N" 
PHEN  GO_SUB 4P00r CUS << 
STOP 
GO TO 1920 


PRINT #0;TAB 3;"U 
avventura?(s/n)": 


OR INKEYS="S" 


2000 
2010 


2020 


2030 
2040 


2050 
2500 
2510 
2520 


2545 


2530 


2540 


2545 
2560 
2570 
3000 
3010 
3020 
3030 
3040 


3050 
3060 


3070 
3080 


3090 


3100 
3110 


3120 


GO SUB 3500 


PRINP‘"-—Non<bai piu foarz 

- Wi 

PRINT '" Warlock ha vinto 

ancora!" 

GO SUB 4000 

PRINT 'TAB 8;"Prima di mori 
te" 

GO TO 1850 

GO SUB 4100: CLS : PRINT 
FLASH 1; INK 6;AT 1,10; "BE 

N FATTO!": FLASH 0: INK 7 

PRINT ''TAB 8; "Hai trovato 
11" 

PRINT 'TAB 6; "tesoro di War 

Teok1" 

PRINT 'TAB Ts"Ora’torna fùo 

Cite: PAUSE 80: PRIN ese 
et-rliesci!" 

PRINT *'TAB 3;"Sel al 'tivel 

l@SEeft 

PRINT 'TAB 3;"Per uscire de 


vi"*;TAB 3;"attraversare un 
a porta" 
PRINT TAB 3;"posta al livel 
to 04 


PAUSE 50: PRINT '''TAB 10;" 
Buona fortuna!" 
LEd-erettg-G0 TO 5500 


LET ht=INT (RND*10)+] 
LET str=str-ht*(INT (RND*2) 
+1): IF” str EHEN-—GOSto. 2 


000 

IF ht>m(mn) THEN GO TO 305 
0 

PRINT '"Non:'hai cotpito:":m 
$ (mn) 


GO SUB 4500: GO TO 1050 
LET blo=ht-m{(mn) 
PRINT ‘(" Hai ferito 
AND blo>=3);(" Hai spavent 
ato " AND blo<=2);m$ (mn): 
GO SUB 4100 
LET n(mn)=n(mn)-blo 
IF n(mn)<1 THEN GO TO 3110 


IF n(mn)<3 THEN PRINT ';m$ 


(mn) ( TO g(mn));" sembra mo 
lto stanco." 

GO TO 1050 

PAUSE 50: PRINT ';mS$(mn)( 
TO g(mn));" scappa.": 

GO SUB 4100: PRINT '" Ma 1 
& tara forza; e ora 14 str 


LET hq=hg+tg(mn)*(INT 
)+1): LET ded=dedt+]1 


(RND*3 
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S29 


5130 


5140 


5150 


5160 


5170 


GO TO 1100+100*INT (RND*2) 
Cis 3 PRINE AT], és WNARLOC 
K"'TAB RNZZLLELE REA: 
RETURN 
FOR f=lo 0g BERPoz: (if) ,y( 
f): NEXT f: RETURN 
FOR. £f=10 TO 20:: FOR h=0 
TO. 3: BORDER hs BEEP -..016, 
t*2-hi NEXT hr NEXT f: 
RETURN 
FOR f=5 TO 6: BEEP 
NEXT .£f: PAUSE 50: 
GO SUB 3500 
PRINT.AT-15;6;"Seguono le i 
struzioni" 
GO SUB 5500: 
DIM m$(9,15): 
DIM m(9): 
DÒ 
DIEM kS(36): 
DIM y(11) 
RESTORE : FOR 
READ m$(f): 
READ n(f): 
NEXT f 


PORSESI:: TO 3: 
NEXT f 
FOR*T=1 POST1:OREAD'=(f): 
READ y(f): NEXT f 

FOR £f=1] TO 3: READ KS(f): 
NEXT f 


PRINT '"Sei un giovane eroe 
all' attaccodel Palazzo di 
Warlock." 

PRINT '"Stai cercando di tr 

oware il suo "; TAB 1]; 
FLASH 1; PAPER 6; "TESORO." 


LOL: 
RETURN 


GO SUB 3500 
DIM a$(3,12) 
DIM): DIM gli 


DIM z(tija 
£=1 TO 9: 


READ m(f): 
READ g(f): 


READ a$(f): 


PR. raiWîfariock.. non: e! n 
2 0 ASSAI, Ja 


PRINT 
el palazzo.. 
FLASH l;"MA"; FLASH 0 
PRENT '" c'e 'éhi 
na guardia!" 
PRINT ''" ATTENTI AL RITORN 
O DI WARLOCK!" 
FOR £=] TO 3: FOR i=4 TO. 7: 
FOR h=2 TO 6: BEEP .01,f+i 
+h: BORDER h: BEEP .01,i+h+ 
f: BORDER i: BEEP .01,h+f-i 
: BORDER f: NEXT h: NEXT i: 
NEXT f: BORDER 0 
LET‘hr=0: LET :tr=0: 
0 
LET tres=1500+100*INT (RND* 
10) 


fa una buo 


LET ky= 
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5180 
5190 
5500 


6000 


6010 
6020 
6030 
6050 
6500 


7500 


7600 


7700 


7800 
8200 


8210 
8500 


8510 
8520 


8530 
8540 


9000 
9010 
9020 


9030 
9040 
9050 


GO TO 8520+10*INT 


LET £1=0: LET ded=0: LET hq 
=0 

LET str=500: LET csh=0 
PRINT AT 21,1];"Premi un tas 
to per continuare.": 


PAUSE 0: CIS RETURN 
PRINT '" Qualcuno ti colpis 
ce e"''"ti porta via dell'o 
CO" 


LET csh=csh-INT 
RND*3)+1)) 
PRINT. *"'* IN#:6»* ora hai " 
-«eshb;:!" monete :d '"oro:." 
IF tr AND csh<tres THEN 
LET "tres0 > BRINT 5 VUTAB 3;" 
Ricomincia a cercare." 
GO TO 4500 
PRINT ' FLASH l;"No!";: 
PAUSE 50: GO TO 8000 
DANA: *lo Spireato" 58/10, "i 
l1 Gigante",3,10,10,"il Demo 
nio"”.,2,10,10/;*Mel: Vampiro”,2 
8,10,"il Lupo Mannaro",4,9 
PA e Pa Rpg OL ET-7-È 7 ali E Pe 
ancasma" 2,68, 11 Drago", 
dt, 0,0 NARLOCK" Baht 


(csh/(IMNTX| 


DATA "un Corridoio." "una P 
orta.".;"una.ScaTa" 
DA'TA (3 fé, KP4,003,74, 
Lars dtd. 
O; 5787 Dj4 

DATA "lepre","rana", "pulce" 


LA 
° 


ce 
4,0 


IF NOT INT (RND*5) THEN 

GO TO 1000 

RETURN 

PRINT (*".Codardo!": LET ha= 


hq-g(mn)*(INT (RND*3)+1): 
IF hq<] THEN LET hq=0 
(RND* 3) 
PRINT '" Sfortunatamente, n 
ella fretta"''" hai perso d 
elbà* cono s"”e GO TO 6010 
GO TO 4500 
PRENT:*"* Che sfortunab! et 
itha (intrappolato. ": 
GO SUB 4500: GO TO 1050- 
CLEAR : LET SS="WARLOCK" 
SAVE SS LINE 0: BEEP 1,10 


PRINT "RIAVVOLGI IL NASTRO 
E PREMI UN"'"TASTO PER LA V 
ERIFICA" 

PAUSE 0 

VERIFY. S$: BEEP .1y0 

STOP 


slo oe—_ CCI _Llpu_ti_i ei 


di J. K. Laskowshi 
trad. e adatt. 
di Angelo Motta 


Vivrete con lo ZX81 l’intensità dram- 
matica di un assalto disperato 


o spunto di questo gioco di strate- 
Ea è stato preso dalla battaglia di 
Balaklava (25 ott. 1854) durante la 
guerra di Crimea, nella quale in gene- 
rale inglese Lord Cardingam, alla testa 
di un pugno di uomini, tentò di contra- 
stare uno schieramento di ben 30 can- 
noni russi nella valle della morte. 
Lanciato il programma, viene visualiz- 
zato sullo schermo una scacchiera di 
10 x 10, rappresentante appunto “La 
valle della morte”. Ai lati sinistro, de- 
stro ed inferiore della. stessa sono si- 
tuati i 30 cannoni russi con. unggalore 
da 1 a 9 assegnato. Il vostro pl 
uomini è posto al centro del lato sup 
riore, pronto ad entrare nella valle. 
La prima mossa che dovrete effettuaré 
sarà quella di entrare nella valle e do- 
vrete pertanto inserire D per destra, A 
per avanti o S per sinistra. Non appena 
entrati avrà inizio il gioco vero e prog 
prio: Il nemico ha a disposizione 3 
pi (uno per lato) mentre voi ng tere “ 
uno solo. La potenza del PE deter. 
minata dal valore degàe&nnone o da 
quello assegnato al vostro uomo. Per 
sparare dovete inserire prima la lettera 
corrispondente all'uomo della vostra 
brigata che intendete far sparare (lette- 
ra dalla A alla | come da schema che lo 
ZX81 fa apparire sulla destra del 
video), quindi inserire la direzione del- 
lo sparo indicato (D - A - S). Quest'ulti- 
ma lettera determinerà inoltre la dire- 
zione di avanzamento nella valle. 

Una volta raggiunto il fondo della valle 
inizierà la ritirata. Per ogni cannone 
colpito vi verrà assegnato il corrispon- 


OTTO 


cCQ Ds 


dente punteggio e per ogni vostro uo- 


mo abbattuto verrà detratto il rispetti- 


vo valore. 

Scopo del gioco è cercare di riuscire 
ad ottenere alla fine della gara almeno 
un punteggio superiore allo zero, che è 


La valle della morte De LET 
versione per ZX81 16K 100 LET 
138 LET 

ASSE 120 LET 
S CLS 1329 LET 
10 DIM A(3,11) 169 LET 
22 DIM PET 169 LET 
32 DIM cg cs ) 17@ PRIN 
52 RAND qB 23; "BR 
S9 FAST AB 28, "DE 
?2d PRINT TAB 8; "LA VALLE DELLA 2; "RECORD 

MORTE" 180 LET 


già da considerarsi un buon risultato. 
A video viene riportato il record rag- 
giunto in tale gioco (da un fenomeno, 
penso) di 63 punti; dopo diverse parti- 
te di prova effettuate superare i 20 
punti è stato notevolmente difficile. 


MOSSE nQ 
FORZAO 
Pu® 
Mel 
Na® 
Xe 
WAKE 

sm 
T_AT 68,22, THE LIGNT'.T 
IGADE",., ,TAB 25; ABC':;T 
F';TAB 25; GMI"';AT 18,2 
PLL A WR 
Boa" di 
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20929 PRINT_RT 19,0, FINE DELLA B 
Rc ar d; "NESSUN SOPRAVVI 
291€ IF FORZA)@ THEN PRINT AT_209 
20; VIVI O"; FORZA; " AGG.TI AL PUN 
TEGGIO" 

20922 LET PUNTI=FORZA 

2039 GOSUB 1900 

2049 PRINT _ AT 21,0; "IL RECORO RI 
MANE INVARIATO" 

2059 IF TOT)WR TMEN PRINT AT ail, 
0; "HRI BATTUTO IL RECORD - BRAVO 
2050 F Isl TO 50 

209729 N 


ga MEN RUN 
NKEY $="" TMEN GOTO 2090 


"VALLEMORTE " 


E tu cosa aspetti 
a spedire il tuo 
programma? 


‘ 
ETA LIS: SO RI DE co SI 


Libri firmati 
JACKSON 


VOI 
E L’INFORMATICA 


100 Tavole per # manager 


Alan Miller 

PROGRAMMI SCIENTIFICI 
IN PASCAL 

Un'opera base per chi 
desidera costruirsi una 
“libreria’’ di programmi in 
grado di risolvere i più 
frequenti problemi 
scientifici e ingegneristici. 
372 pagine L. 25.000 
Codice 554P 


Franco Filippazzi 

Giulio Occhini 

VOI E L’INFORMATICA 
L'opera che il manager 
moderno non può ignorare. 
In 100 tavole: gli strumenti 
dell’Informatica, 
l’Informatica e l'Azienda, 
realtà e prospettive 
tecnologiche... 

116 pagine L. 15.000 
Codice 526A 


Roland Dubois 

CAPIREI 
MICROPROCESSORI 

Un fantastico viaggio alla 
scoperta del ‘‘cervello’’ 
elettronico: la funzione 
del microprocessore, 


delle memorie ROM e RAM, 


delle interfacce... 
126 pagine L. 10.000 
Codice 342A 


nuovidea 


i IT 


Giuseppe Saccardi 
TRASMISSIONE DATI 
Dispositivi standard e 
protocolli 

Il calcolatore e le sue 
infinite applicazioni nel 
campo delle comunicazioni 
applicate a tutti i settori in 
cui si articola la società 
moderna. Un libro che 
traduce in tecnologia la 
profezia orwelliana di 
‘‘1984” 

308 pagine L. 23.000 
Codice 528P 


F. Franceschini 

F. Paterlini 

Voi e il vostro 
Commodore 64 
Uno strumento 
fondamentale per la 
comprensione e 
programmazione del 
Commodore 64. 

Con consigli, programmi 
testati, glossario e utili 
accenni di BASIC. 
256 pagine L. 22.000 
Codice 347 B 


La Biblioteca che fa testo 


| Gruppo Editoriale Jackson -Via Rosellini, 12 - 20124 Milano 
O Desidero ricevere gratuitamente il Catalogo Generale 

| della Biblioteca Jackson e informazioni sulle 10 Riviste 
specialistiche da voi pubblicate. 
(allego L. 1.000 in francobolli per contributo spese di spedizione) 


| 
U Desidero ricevere contrassegno il/i volume/i | 
| 


| (bagherdal ricevimento Lì. .............. iii nn | 
più L. 2.000 per contributo spese di spedizione) 


Nomerr ;;_ a 0g 
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J5.SOFT: 
OBIETTIVO 


Il mondo del software e dei servizi di informatica è difficile da fotogra- 
fare. Una domanda che varia di continuo, prodotti nuovi giornalmen- 
te immessi sul mercato. Non solo. La realtà italiana è ancor più 
complessa, per caratteristiche uniche di lingua, cultura, organizza- 
zione. 

Un mercato difficile, con infinite variabili. Noi della J. Soft abbiamo 
una risposta a tutte queste istanze: anzi, tutte le risposte. Perchè 
siamo un editore di software, di riviste e di libri su supporto magneti- 
co e su carta. 

In più, unici in Italia, distribuiamo su tutto il territorio nazionale, 
con una nostra rete di agenti, programmi nostri e della prima e più 
prestigiosa software-house indipendente del mondo: MICROSOFT. 
J. Soft con una struttura snella affronta con dinamicità tutti gli aspet- 
ti di questo nuovo mercato: dall’informazione alla formazione, dalla 
vendita all’assistenza post-vendita. 

Il nostro cliente è un amico, sia esso un dealer, un utente finale, un 
abbonato. 

Sempre a sua disposizione, raggiungibili telefonicamente con un nu- 
mero diretto (02-6888228), per aiutarlo a risolvere un problema, a 
chiarire un dubbio, a far tesoro di tutti i suoi suggerimenti. 

J. Soft vuole distinguersi per una filosofia commerciale di una geo- 
metrica semplicità: offrire il meglio, nella forma più adatta, a un 
prezzo conveniente, con il miglior servizio. 


SOFTWARE! 


Ù Li 
Scegli anche tu uo SO] C. 
* EDITRICE 


Il soft-publisher amico 


20124 Milano - Via Rosellini, 12 Tel. (02) 6888228-683797-6880841/2/3 


di David Link 
trad. e adatt. 
di Marcello Spero 


Raggiungere lo spazioporto sa- 
rà per la vostra astronave un im- 
presa veramente difficile! 


gp oamente ispirato ad uno dei più 
popolari ‘arcade’, Tunnel run vi 
porta ad esplorare con la vostra astro- 
nave un labirinto spaziale. Il gioco si 
compone di quattro fasi, durante le 
quali dovrete attraversare il tunnel dei 
missili, il campo di asteroidi, il tunnel 
contorto, per portare infine il vostro 
veicolo ad un perfetto atterraggio sulla 
piazzola dello spazioporto. 

Il programma basa il suo funzionamen- 
to sul fatto che dando alla variabile di 
sistema SCRCT, all'indirizzo 23692, 
valori compresi fra uno e 255, lo scher- 
mo scorrerà verso l’alto per un numero 
corrispondente di volte senza che vi 
venga posta l’infernale domanda 
“scroll?”. 

| tasti usati per muoversi sono sempre il 
“D' per spostarsi a sinistra, e l’“8” per 
spostarsi a destra. In aggiunta a questi, 
durante il secondo stadio del gioco il 
tasto “0” serve a fare fuoco, per di- 
struggere l'astronave blu che appare di 
tanto in tanto. Attenti, però: ogni volta 
che userete il vostro laser, perderete 
20 punti; in caso di centro, comunque, 
ne guadagnerete 100. 

Nell'ultima fase di gioco dovrete cerca- 
re di atterrare sulla piazzola gialla. In 
questo stadio avrete a disposizione il 
comando “R”, per azionare i retrorazzi. 
oltre naturalmente, ai due tasti di dire- 
zione. 

Se vi dovesse capitare, alla fine del 
gioco, di fermare accidentalmente il 
programma, fatelo ripartire con GO 
TO 45. Dando RUN, infatti, perdereste 


Corsa nel tunnel 


versione per ZX Spcetrum 16K/48K 10 


la registrazione del precedente record, 
proprio come se aveste appena carica- 
to il gioco. 

Per quanto riguarda il lavoro di trascri- 
zione, non ci sono particolari proble- 


mi; il programma, infatti, non è né lun- 
go né complesso, adattandosi ugual- 
mente bene al 16K come al 48K. 
Detto questo, a voi i comandi e buon 
divertimento! 


BIN 00000000 


FOR £=0 TO 7 


POKE USR "P"+f,a. 


DATA BIN 01111110,BIN 001 


11100,BIN 00011000,BIN 01 


20 READ a: 
TFOR£=0 TO 7 30 NEXT £f 
2 READ a: POKE USR "L"+f,a 40 
3 NEXT f 
4 DATA BIN 00000000,BIN 010 


00010,BIN 10011001,BIN 10 
1I11107T,BIN' 1711711 T,BIN 1 
0011001,BIN 01000010, 41 
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111110,BIN 01111110,BIN 0 
PIF: TRO7BIN O04OT1FO010, 

BIN 00011000 

LET hi=0: 


LET 2z=0 


42 


43 


BORDER 6: PAPER 6: INK l: 
CLS 6 
PRINT " TUNNEL 


RU N"*! **"gei stato-sfidat 
o ad esplorare un compless 
o labirinto spaziale Rientr 
erai vivo alla base?"''"Il 
labirinto e' composto da 


quattro seziont:"'"]> Tun 
nel dei missili"'"2> Astero 
idi. (basto: '0' = fuoco)"'"3: 
> Tunnel contorto"'"4> Piaz 
zola di atterraggio"'" e 
asto 'R' = retrorazzi, 
atterra sulla zona gial 
La)" 
PRINT ''"PREMI UN TASTO PER 
INIZIARE!" 
IF INKEYS<>"" THEN 
GO TO 46 
PAUSE 0 
LET a=15: LET sc=0 
BORDER 1: PAPER l: INK 0: 
CLS 
PRINT AT 21,0;"{10SG8} 
{15SG8}" 


FOR £=1] TO 200 


IF a<=9 OR a>=17 THEN 
GO TO 900 

PRINT AT O; app" 

POKE 23692,255 

LET a=a+(INKEYS="8")-( 
INKEY$="5") 

PRINT AT 21,0; 

PRINT AT 21,INT 
INK 6,4" 

PRINT INK 4;"{10SG8} 
{15SG8}" 


LET b=ATTR (0,a) 
IF b<>8 AND b<>12 
THEN GO TO 900 
LET sc=sc+1 
BEEP 3:00:5,,04 


NEXT f 

FOR fi=UWXMO) 22 
PRINT'AT'0/a;;"p" 

LET a=a+(INKEY$="8")-( 
INKEY$="5") 

POKE 23692,255, 

PRINT AT 21,0;" 


(RND*7)+10; 


BEEP .005,-2 


PRENT +?! 


LET b=ATTR 
IF b<>8 AND b<>12 
THEN GO TO 900 

LET sc=sSc+] 


(0,a) 


BEEP .01,0: 
NEXT: f 
PRINT AT 0,a;"P" 

PRINT AT 10,10; FLASH 1; "Pu 
nti “;sc 

FOR f=1 TO 5 

FOR n=10 TO 20 
BEEP .l,n 

NEXT n 

NEXT f 

PAUSE 250 

BORDER 2: PAPER 2: 


PRINT AT 0.,a;"P" 
FOR f=1 T0 30 
BEEP .2,-2: BEEP 
BEEP .5,3.2 

NEXT f 

BEEP 1:34 2 

LET c=20 È 

FOR £f=1] TO 200 

PRINT AT 0,a;"P" 

LET a=a+(INKEYS="8")-( 
INKEY$="5") 

IF INKEY$<>"0" THEN 

GO TO 480 
LET sc=sc-20 

FOR n=1 TO 21 

PRINT AT n,a; INK 6;"|" 
NEXT n 

IF a<>c THEN GO TO 470 
LET sc=sc+100 
FOR. x=1. TO :30: 
c; INK 6; PAPER 0; 
Mae NESS A 


BEEP .01,-2 


CLS 


at i 


PRINT AT 21, 
FLASH 1; 
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690 
700 
705 


FOR n=1 TO 21: 
SCORE BOE DI 
POKE 23692,255 
IF z=5 THEN PRINT AT 17,c; 
" " 

PRINT AT 21-00 di 
BRIGHT 1;" FE AT 21,31; 
INK 35 BRIGHT T;"#4" 

PRINT " 


PRINT AT n,a 


PRINT AT 21, (RND*30); 
suon 

LET b=ATTR (0,a) 

IF b<>16 THEN GO TO 900 
FP. #<5: THEN —GO-/TO-559 
LET c=RND*27+3 


INK 4 


BEEP .005,0: BEEP .005,-2 
PRINT AP-d1,c} INK PE 
LET z=0 
LET z=zt+] 

NEXT f 

FOR .f=1 TO: 22:. PREMI AT 26, 
Os." A 

We NEXT È 

BORDER 3: PAPER 3: CLS 
PRINT AT 0,a;"P" 

PRINT AT 10,10; FLASH 1; "Pu 
hti “55€ i 

BEEP 1,9: BEEP ]fgk0eks 

BEEP 1,9: PAUSE 130: 

BEEP 2,0 

LET tu=13 


ERIMI CAT 10,05: 
" 


FOR £=1 TO 172 

PRINT AT 0,a;"P" 

LET a=a+(INKEYS="8")- ( 
INKEY$="5") 

POKE 23692, 255 

LET tu=tu+(RND>.5)-(RND<.5) 


LET tu=tu+(tu<1)-(tu>24) 

PRINT AT 21 DR PAPER 3; 
INK 0; 

IF RND>.. 7 THEN PRINT AT 2] 


r (RND*5)+tu; INK 1;"L" 
PRINT :}.INK ‘7; BRIGHT 5" 
{32SG8}" 


IF £f>149 THEN PRINT AT 21, 
0; PAPER 3; INK 0;" 

" 
LET b=ATTR (0,a) 
IF b<>24 THEN GO TO 900 
LET sc=sct+] 
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7710 
720 
730 


LI 
734 
Vas 


736 


737 
1.38 
739 


740 


745 
750 


root 
760 
765 
770 


780 


785 
790 


800 
810 


830 


832 
833 
835 


840 


850 
900 


949 


920 


930 
935 
948 


BEEP .005,0: BEEP .005,-2 
NEXT f 

BORDER 0: PAPER 0: INK 7: 
CLS 

PRINT AT 0,a;"P" 

LET g=INT (RND*30)+1] 

PRINT AT 15,0; INK 1;"##### 


###H#R#HH#H##H############# 


FOR f@et0 TO. 21: PRINTRT £, 


OTRS 23"{325G8}": NEXT. £ 
PRINT AT 15,9; INK 6;"#" 
LET x=0 

PAUSE. 150:: LET 0x=0: LET 0a 
=a 

PRINICAT oKsoass” "AT x.,&;." 
pa 

LET oa=sa: LET ox=x 

LET a=sa+(INKEYS="8")-( 
INKEYS="5"} 

LET a=a+(a<0)-(a>31) 

LET x=x+] 

PAUSE 5 

TE IMKEYS="r" THEN _ LPP. sx 
+= ZAEAKD1) 

TP x>=T5 THEN —G60-TO0 800 
BEEP .005,0: BEEP .005,-2 
FRINT.AT Xr837::- 8 60 00 8 0 


IF a<>g THEN «GO: TO 900 


PAPER-0:-INK.-7: FLASH 1 
CLS 
PRINT AT 5,10; "PUNTI 60 


IF sc>hi THEN LET hi=sc 
PRINT AT 8,10; "RECORD cai 
CIRCLE: 125; 85,80 i 


PORGPET-=TO: 20:15 BEEP 041; fr 
NEXT f 

GO TO 920 

CLS INK 6: PRINT AT 10,0; 


"Sal- stato disrutto"'!PMia 


tobalizzato:"; sc;" pubél" 
FOR £=0 TO -10 STEP :-1: 
BEEP .01],f: NEXT f 
PRINT PRINT "Premi s per 
un altra partita,"''"n per 
smettere" 

IF INKEYS="" THEN GO TO 93 
0 

FLASH: 0: CLS 

IF INKEYS="s" THEN GO TO 4 
5 


di Massimo Magnani 


Un utile programma disassembla- 
tore per lo Spectrum 


Linee 
oloro che sanno programmare in 20 
linguaggio macchina troveranno 
senz'altro utile poter controllare facil- 50-100 
mente i loro programmi esaminando il 
disassemblato del codice oggetto e an- 150 
che coloro che desiderano avvicinarsi 200 
a questo meraviglioso modo di pro- 
grammare potranno trovare numerosi 900 


1000-1020 
1100-1120 
1500 
1600 
1700 
1800 
4000-4500 
6000-6090 
6500-6540 
6000-6660 


spunti dal tradurre facilmente le nume- 
rose routine che si trovano in quasi tut- 
ti i programmi commerciali. 


Il programma è scritto interamente in 
BASIC e sta nei primi 16Kbyte di RAM. 
Per rendere il programma più veloce 
sono stati usati i numeri di linea più 
bassi per le routines usate di frequen- 
te, comunque la linea 1 permette di far 
partire il programma col solito RUN. 


All’inizio bisogna scegliere fra le due 
opzioni DUMP e DIZ80: con la prima si 
ottiene in uscita un lista (in esadecima- 
le) dei valori in memoria ed il loro 
equivalente simbolo ASCII (utile per le 
tabelle), con la seconda si entra nel di- 
sassemblatore vero e proprio. Alla ri- 
chiesta degli indirizzi si può risponde- 
re sia con numeri decimali che con 
esadecimali, nel secondo caso è neces- 
sario far seguire al numero la lettera 
“h” (non ha importanza se le lettere 
eventualmente presenti nel numero 
sono maiuscole o minuscole). 


Usando il disassemblatore si può deci- 


7000-7005 
7010 

7015-7024 
7030-7180 
7200-7240 


7260-7340 
7400-7827 
7900-8255 
9000 


Disassembler Z80 
versione per ZX Spectrum 16K/48K 


1 GO TO 7000 

20 DEF FN q$(n)=CHR$ (48+INT ( 
n/16)+7*(n>=160))+CHRS$ (48+ 
N-INT (n/16)*16+7*(n-INT (n 
/16)*16>=10)) 


49 REM *** LEGGE BYTE *** 
50 LET n=PEEK an 
100 LET n$=FN q$(n): RETURN 


dere di far fermare l'elaborazione in 
corrispondenza dei codici di fine routi- 
ne e di salto incondizionato, in questo 


Descrizione del programma 


Commento 


Funzione che traduce in stringa esadecimale il valore 
dato come argomento. 

Riportano in n il contenuto della locazione corrente ed 
in n$ il corrispondente valore esadecimale. 

Prende il primo codice operativo in op e lo stampa. 
Riporta in h$ il valore di d come numero esadecimale di 
2 byte. 

Riporta in x e y il valore dei bit 3-5 e 0-2 di op. 

Vari modi di indirizzamento. 

Scompongono x$ alla 1® parentesi. 

Trova il registro interessato. 

Trova la giusta condizione. 

Trova operazione aritmetica o logica. 

Trova operazioni di shift o rotazione. 

Data. 

Programma DUMP. 

Assegnazione indirizzi e opzione stampante. 

Traduce se necessario il numero esadecimale in deci- 
male. 

Scelta programma (DUMP-DIZ80). 

Inizio DISASSEMBLER. 

Inizializzazione. 

Corpo principale. 

Controllano se è finita l'elaborazione, se no, passa alla 
prossima istruzione. 

Se il codice operativo è CBh. 

Se c'è indirizzamento indicizzato. 

Se il codice operativo è EDh. 

Codice non riconosciuto. 


caso se si desidera proseguire col di- 
sassemblato occorre digitare il coman- 


do CONTINUE. 
150 LET an=an+]: GO SUB 50: 
PRINT n$gé;: LET op=n: 


RETURN 


199 REM * H$=D in esadecimale * 
200 LET j=INT (d/256): LET h$= 
FN q$(j): LET j$=FN q$(d-j* 
256): LET h$=h$+jS: 
RETURN 
900 LET x=INT ((op-k)/8): LET y 


=op-k-x*8: RETURN 
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1000 


1001 
1002 


1003 


1004 
1005 


1006 


1010 


1020 


1100 
1110 


1120 


1500 


1600 


1700 


1800 


4000 


4010 


PRINT TAB ts;x$: GO TO 7200 


GO TO 1010 
GO SUB 150: LET aa=n: LET y 
$=n$: GO SUB 150: PRINT 


TAB \ts5xS;n$;/WO 0" PAD td; 
aa+n*256: GO TO 7200 
GO SUB 150: LET j$=nf: 

LET aa=n: GO SUB 150: 

GO SUB 1100: PRINT TAB ts; 
x$;n$;j$;"h";y$;TAB td;aa+t2 
56*n: GO TO 7200 
GO SUB 150: PRINT TAB ts;x$ 
Sirene Go TO 7200 
GO SUB 150: LET xS=x$+"("+z2Z 
$+"+"+n$+"h)": RETURN 
GO SUB 150: GO SUB 1100: 

PRENT'TAB ts;xSst19#"h";vY9? 

GO TO 7200 
GO SUB 150: IF opil27 

THEN LET op=op-256 


LET d=an+op+1: GO SUB 200: 
PRINT TAD't8> 4619." 
TAB td;d: GO TO 7200 
LET b=0: FOR t=1] TO LEN x$ 
IF x$(t)="(" THEN LET b=t 
NEXT t: LET y$=x$(b+1 TO ): 
LET x$=xS$( TO b): RETURN 
RESTORE 4200: FOR t=0 TO re 
g: READ y$: NEXT t: LET x$= 
x$+y$: RETURN 
RESTORE 4300: FOR 
READ yS$: NEXT t: 
+y$: RETURN 
RESTORE 4100: FOR 
READ x$: NEXT t: 


RESTORE 4400: FOR t=0 TO x: 
READ x$: NEXT t: RETURN 
DATA "ONOP","2LD BC,", "OLD 
(Bere e UAN De , MAN Bos 
“ODEC B","4LD Bo M0ORLCA" pf 
0EX AF,AF'","O0ADD HL,BC","0 
LD5GA#)6BC)","0DEC.-BC","OINC 
C" «BODBCr0"! 4 ED: 10," "ORRCA 
© NEDONZ Mo 200) DE: 


DATA "OLD (DE) ,A","OINC DE" 
s"OINC D","ODEC D","4LD D," 
s"'ORLA","1JR ","O0ADD HL,DE" 
r"OLD A,(DE)","ODEC DE","OI 
NC E","ODEC E","4LD E,", "OR 
RA","]JR NZ,","2LD HL,","3L 
D () ,HL","OINC HL","OINC H" 
s"ODEC H","4LD H,","ODAA" 


t=0 TO x: 
LET x$=x$ 


t=0" TO xt 
RETURN 
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ALDIADI LGDLU pui 


uare 


ul v=a(4,4)3 Lbkt a(4,4)=a|( 
s4): LET a(3,4)=a(2,4): 
LET 2,4)=a(1,4): TE 

ne o peo DR ni 2Q_ PRINT INVERSE l;AT 
3T v=a(4,4): Mr” asta I COMPAT +++" 
13): LET a(4,3)5@.° = | bla 


. n 
ST v=a(3,4): ‘Geri 
r3) ® LET a( vit 
LET a(3,2)= n9+12h; 
l)=v: GO TO FOR zZ 
3T v=a(2,4) KE USR 
13) LET a( 
LET a(2,2)= 20,14,12 
l)=v: GO TO 
3T v=a(1,4): 
3): LET a(l, F 
eta) *HR$ 144;" "; 


* CHR$ 160;" "; 
f 


030 PRINT FLASH l;AT 7 
SAGLIO COLPITO,COMP 
»” 


PRINT " x= ";x 
4041 PRINT " y= “;y 


4020 DATA "1JR Z,","0ADD HL;HL", 
"3LD HL,()","ODEC HL","OINC 
L","ODEC L","4LD L,","OCPL 
Be TIR ONC,","2LD SP." ,"3LD 
() ,A","OINC SP","OINC (HL)" 
s"'ODEC (HL)","4LD (HL),","0 
SCF","1.JR.C,","0ADD HL,SP", 
"3LD A,()","ODEC SP","OINC 
ter e ODEC A "4 1) Mo si dea 
4100 DATA "ADD A,","ADC A,","SUB 
","SBC A,","AND ",""XOR dd 
OR ". "CP " A 
DATA ENO”, D'. ELrEOtÀ 
= ML) eli . a 
DATA TR n cn I a EI 
, "pE" » tp ; UM" 
DATA SERIO VETTENRO PRE; salt 
R PETS MAE it pra Mn A 
" 


4200 
4300 


4400 


4500 DATA "OPOP BC", "ORET","OPOP 
DE","0EXX","OPOP HL","0JP 
(HL)","OPOP AF","OLD SP,HL" 
r"23JP mal o SROUT () a TOA 
N A,()","O0EX (SP) ,HL","0EX 
DE,HL","0DI","O0EI","OPUSH B 
0°." ROREL “,"OPUSH a” st” 
“OPUSH o "tate “,"O0PUSH DE. 
" : 


6000 
6010 


REM Kkk DUMP K*Kkk 

GO SUB 6500: LET an=a: 
PRINT 
DET'xSa "3: 
GO SUB 200: 


6030 LET d=an: 
| PRINT h$;"- "; 


6040 FOR y=1] TO 8: GO SUB 50: 


PRINT Nos" ore 


6050 
6060 
6080 
6090 


6500 


6520 


6540 
6600 


6610 


6620 
6630 


6640 


6650 
6660 
6999 
7000 
7005 
7009 


7010 
7012 


7015 


IF n<32 OR n>127 THEN 


LET x$=x$+"?": GO TO 6080 
LET xS=xS+CHRS$S n 
LET an=an+1]: IF an>am 

THEN PRINT TAB 38;xS: 

CLOSE 42:-<STOP : RUN 
NEXT y: PRINT TAB 38;xS: 

GO TO 6030 
INPUT "START ? "Sell xS'" 
STOP ? "; LINE y$: GO SUB 6 
600: LET a=n: LET x$=y$: 

GO SUB 6600: LET am=n 
INPUT "OUTPUT ON PRINTER (s 
/n) ?":2$: LET ESOSTCIF 2$= 
"s" THEN OPEN #2,"p": 

LET pr=1] | 
RETURN 
IF xS(LEN x$)<>"h" AND x$ 
(LEN x$)<>"H" THEN LET nh 
=VAL x$: RETURN 
LET j=1]: LET n=0: FOR t= 
LEN x$-1 TO ].STEP.:-<ds 

LET k=CODE xS${(t) 

IF k<48 OR k>70 THEN 

GO TO 6650 
IF k>57 AND k<65 THEN 

GO TO 6660 
LET n=n+(k-48-(7 AND k>64)) 
*j: LET j=j*16: NEXT t:. 

RETURN 
IF k>96 AND k<103 THEN 

LET k=k-32: GO TO 6640 
PRINT #1;x$;" : ESADECIMALE 

ERRATO": PAUSE 0: RUN 
REM *** INIZIO ** 

INPUT "l) DUMP 2) DIZ-8 
pf "scegli ?2";x$:<IPsx$»N]" 

THEN GO TO 6000 
IP _xS<>"2" ‘THEN GOTTO 70 
00 
REM *** DISASSEMBLER *** 

GO SUB 6500 
INPUT "Opzione JP/RET (s/n) 

?";x$: LET opz=0: IF x$="s 

" OR x$="S" THEN LET opz=l 


PRINT "DISASSEMBLAGGIO : Ls 
taz"<a>5"ramp®* < + orga LET:@ 


, * 


7020 


7024 


7030 
7040 


7070 
7080 


7090 


7100 


7)10 
77120 


7730 


7140 


7150 


T.V55 


7160 


7165 


FAO 


7380 


=a: GO SUB 200: 
<=>":: LET d=am: 
° PRINT h$;"h" 
LET pp=-1: LET cb=203: 

LET dd=221]: LET ed=237: 
LET £fd=253: LET ts=14: 

LET td=27: LET an=a 

PRINT '"LOC. ISTR.";TAB ts 
«CS TMBO0L."TAB-6;!’maoch."; 
TAB td;"(dec)"'' 

LET d=an: GO SUB 200: 

PRINT h$;" "; 
GO SUB 50: PRINT n$é;: LETO 
p=n: LET pp=op: IF op=cb 
THEN GO TO 7260 

IF op=ed THEN GO TO 7900 
IF_opsdd.. THEN. LET z$="IX": 
.GO TO 7400 


IF op=fd THEN 
GO TO 7400 
IF op<64 THEN RESTORE : 
FOR t=0 TO op: READ x$: 


PRINT h$;"h 
GO SUB 200 


LET. 2z6="INV": 


NEXT t: LET a=VAL x$(1): 
LET x8=xS{(2-.T0-.): GO TO TO 
00+d 


IF 0p>=128 THEN GO TO 7140 


IF op=]]8 THEN LET xS="HAL 


Tm": GO.TO:-1000 
LET x$="LD ": LET k=64: 
GO SUB 900: LET regz=x: 


GO. SUB. 1500: LET. x$=x$+"," 
? LET reg=y: GO SUB 1500: 
GO TO 1000 

IF 0p<192 THEN LET k=128: 
GO SUB 900: GO SUB 1700: 


LET reg=y: GO SUB 1500: 
GO TO 1000 
LET k=192: GO SUB 900: IF y 


=0. THEN LET x$="RET. ": 

GO SUB 1600: GO TO 1000 

IF y=2 THEN LET xS$="JP ": 
GO SUB 1600: LET x$=x$+"," 
---«GO. TO 1002 

IF y=4 THEN LET xS$="CALL " 
° GO SUB 1600: LET x$=x$+", 
Mer 60: TO- 1.002 

IF y=7 THEN LET x$="RST "+ 
(FN q$(x*8))+"h": GO TO 100 
0 


IF y=6 THEN GO SUB 1700: 
GO TO 1004 

LET x=x+8*INT (y/2): 
RESTORE 4500: FOR t=0 TO x 
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7190 
7200 


7205 


7210 
7230 
7235 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 


7320 


7330 
7340 


7390 
7400 


7410 
7420 


7430 


7440 
7450 


7470 
7480 


7500 


7510 


: READ x$: NEXT t: LET d= 
VAL x$(1): LET x$=x$(2 TO ) 
: GO TO 1000+4 

REM *** CONTINUA *** 

IF pp=195 OR pp=24 OR pp=20 
: OR pp=233 THEN GO TO 723 


LET an=an+1]: IF andam 
THEN CLOSE #2: STOP : 
RUN 


GO TO 7030 

PRINT : IF opz=0 THEN 
GO TO 7205 

CLOSE #2: STOP IF pr 
THEN OPEN #2, "p" 

GO TO 7205 

REM Kkk OP=CBh Kok 

GO SUB 150 


IF op>=64 THEN GO TO 7300 


LET k=0: GO SUB 900: IF x=6 
THEN GO TO 9000 
GO SUB 1800: GO TO 7340 


IF 0op<128 THEN LET k=64: 
GO SUB 900: LET xS="BIT ": 
0 TO 13306 

IF 0op<192 THEN LET k=128: 
GO SUB 900: LET x$="RES ": 
GO° TO PISO 

LET k=192: GO SUB 900: 

LET xS="SET * 

LET x$S=xS+STR$ x+"," 

LET reg=y: GO SUB 1500: 
GO TO 1000 

REM *** INDICI *** 

GO SUB 150: IF op=cb THEN 
GO TO 7600 

IF 0p<64 THEN GO TO 7550 

IF op>=128 THEN GO TO 7500 


LET *S="LD- è: LET 'K=64: 
GO SUB 900: IF y=6 THEN 
GO TO 7470 % 


IF x<>6 THEN GO TO 9000 
GO SUB 1005: LET x$=xS+",": 
LET reg=y: GO SUB 1500: 

GO TO 1000 

IF x=6 THEN GO TO 9000 

LET reg=x: GO SUB 1500: 

LET x$=x$+",": GO SUB 1005 
° GO TO (1000 

IF op>=192 THEN GO TO 7550 


LET k=128: GO SUB 900: IF y 
<>6 THEN GO TO 9000 
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GO SUB 1700: LET x$=x$+",": 
GO SUB 1005: GO TO 1000 
IF._.0p=33 THEN. LET x$="LD " 
+7$+" "0 PO1002 

IF 0p=34 THEN LET x$="LD ( 
} e+t GTO. TP003.-. 

IF 0op=42 THEN LET x$="LD " 
+24 e: * GO. TO. 1003 

IF 0p=52 THEN LET x$="INC 
": GO SUB 1005: Go TO 1000 
IF 0op=53 THEN LET x$="DEC 
"ssi60-SUB10057 Go TO 1000 
IF 0op=54 THEN LET x$="LD " 
° GO SUB 1005: LET x$=x$+", 
": GO TO 1004 

IF op>192 THEN LET op=o0p-] 
28 
LET xS="727P"7 
p: GO TO 1000 
LET x$="": GO SUB 1005: 

LET y$=x$: GO SUB 150: 

IF op>=64 THEN GO TO 7630 


LET k=0: GO SUB 900: IF y 
<>6 OR x=6 THEN GO TO 90 
00 | 
GO SUB 1800: LET x$=x$+y5$: 
GO TO 1000 


GO SUB 7700+0 


IF op<128 THEN LET k=64: 

LET xS$="BIT ": GO TO 7660 
IF op<192 THEN LET k=128: 
LET x$="RES ": GO TO 7660 


LET x$="SET ": LET k=192£ 
GO SUB 900: IF y<>6 

THEN GO TO 9000 

LET x$=xS+STRS x+t","+y$: 
GO TO 1000 


LET x$="ADD "+z$+",BC" 
RETURN 

LET x$="ADD "+z$+",DE" 
RETURN 

LET x$="INC "+2Z$ 

RETURN 

LET x$="ADD "+2Z$+","+zZ$ 
RETURN 

LET xS="DEC "+2$ 

RETURN Lie 
LET x$="ADD "+z$+",SP" 
RETURN 

LET x$="POP "+z$ 

RETURN 

LET x$="EX (SP),"+z$0 
RETURN 

LET x$="PUSH "+z2$ 


RETURN 


DISASSEMBSLAGGIO . 
S6l:=.:300 m  MR3Dt <= >@12Ch 
LOC. i SIMBOL. 
macch. dec 

i 23 A e 

SE ss 760 ; CSC 78h ra 23672 
Seti 0 LD G,b 

+e BS oR L 
eezsi JR _NZT.20435h ve 
2ess Fossso C_tiIY+43h} 

+e Cs PUSH BC 
eess DS PUSH DE 
es4f cosess CARLI S35Fh 79093 
Sed4o DI POP DE 3 
B04E Ci POP BC 
aeo4sr si POP Hi 
eese Fi POP 
GeS5l EF5 CE 
ees= cs RET 


9 STOP statement, 72935-2 


7805 
7820 
782] 
7827 
7899 
7900 
7910 


7920 


7930 


7933 
PISA 


7940 
7943 
7947 
7950 
7960 


7970 


7990 


LET x$="IP ("+2$+")" 


RETURN 

LET xS="LD SP,"+2z$ 
RETURN 

REM *** OP=EDh *** 
GO SUB 150 


IF 0p<64 OR op>191] THEN 
GO TO 9000 


LET d=0: IF op>=128 THEN 
GO TO 8000 
LET k=64: GO SUB 900: IF y 


<>0 THEN GO TO 7940 
IF x=6 THEN GO TO 9000 
LET x$S="IN ": LET reg=x: 
GO SUB 1500: LET x$=x$+",( 
eis go TO 1000 
IF y<>1] THEN GO TO 7950 
IF x=6 THEN GO TO 9000 
LET x$="OUT (C),": LET reg= 
x: GO SUB 1500: GO-TO 1000 
IF y<>2 THEN. GO TO 7990 
LET x$="ADC HL,": IF x/2= 
INT (x/2) THEN. LET x$="SBC 
BL; 
LET x=INT (x/2): LET x$=xS+ 
("BC" AND NOT x)+("DE" 
AND x=1)+("HL" AND x=2)+(" 
SP" AND x=3): GO TO 1000 
IF y=3 AND (x<>4 AND x 
<>5) THEN LET d=y 


LET x$="???": GO SUB 8000+0 
p: GO.TO 1000+d 


RETURN 

LET xB="LD ().,BC": RETURN 
LET xS="NEG": RETURN 
LET xS="RETN": RETURN 
LET x$="IM 0": RETURN 
LET =#09*"LD 1.,A°" 
RETURN 

LET x$##LDb BC,()°” 
RETURN 

LET x$="RB97" 

RETURN 

LET x$="LD R,A" 
RETURN 

LET x$="EDU(F.00° 
RETURN 

LET xS="IM 1": RETURN 
DET .xS="LD A,I" 
RETURN 

LET xSe"LD' DBE..()" 
RETURN 

LET xS="IM 2": RETURN 
LET xS$="LD \A5DI 
RETURN 

LET xS="RRD" 

RETURN 

LET x$S="RLD" 

RETURN 

LET-x0e"LD (). SP" 
RETURN 

LET x$="LD SP; ()" 
RETURN 

LET x$="LDI": RETURN 
LET xS="CPI": RETURN 
LET xS="INI": RETURN 
LET xS="OUTI" 

RETURN 

LET xS="LDD": RETURN 
LET. xS="CPD": RETURN 
LET xS="IND": RETURN 
LET x$="OUTD" 

RETURN 

LET xS="LDIR": RETURN 
LET xS="CPIR": RETURN 
LET xS="INIR": RETURN 
LET x$="OTIR" 

RETURN 

LET x$="LDDR": RETURN 
LET x$="CPDR": RETURN 
LET xS="INDR": RETURN 
LET x$="OTDR" 

RETURN 

LET x$="?222?":. GO .:TO 1000 
SAVE "DIZ-80" LINE | 
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tucce. Il coi 
contenuti 
sponibile. 
N.B. 


L'inverffccia ti gi 
drive per un totale di 


prontamente delle altre dita. 
— Particolarmente adatto per I/F 


Presentare m 35 pagine tutto ii “mondo” 
Sinclar è un'impresa impegnativa: per 
ogni oggetto illustrato verrebbe voglia ci 
scrivere colonne e colonne di testi espli- 
cativi e applicativi, tante sono le possibi 
lità offerte dal sistema. 

Bisogna rinunciare, invece, e attenersi al- 
le caratteristiche fondamentali, alle spe- 
cifiche tecniche. 

E giusto che sia così, anche se “IGk, £ co- 
lori, 44 tasti” non dice affatto quanto sia 
entusiasmante e coinvolgente avere in ca- 
sa un Sinclair! 


MONITOR A COLORI 10” 
“TUTTO ITALIANO” 


Un display ad alta risoluzione professionale dal de- 
sign molto curato nelle linee e finiture, particolar- 
mente indicato per l’utilizzo con glihome e personal 
computer per le sue dimensioni ed il prezzo conte- 
nuto. 

Questo monitor prevede un ingresso con segnale 
PAL composito più il segnale audio. 
Dimensioni: 270x285x370 mm. 


JOYSTICK 
COMMAND 
“TRIGA” 


Il primo Joystick che ha il 
pulsante “FIRE” nel punto 
più naturale per l’uso, difatti 
il dito indice risponde più 


SINCLAIR 


ZX INTERFACE 1 


Indispensabile per il collegamento del ZX Microdrive. 

Incorpora una interfaccia RS 232 e un sistema di collegamento in rete locale; si connette alla parte po- 
steriore dello ZX Spectrum permettendo comunque il collegamento di altre espansioni periferiche 
dello ZX Spectrum. La interfaccia seriale RS 232, standard industriale universalmente adottato, per- 
mette il collegamento fra lo ZX Spectrum e una ampia gamma di periferiche e di altri computer dotati 
della medesima interfaccia. Grazie alla RS 232 è anche possibile trasmettere dati sulla linea telefoni- 
cautilizzando un modem. Tutte le immagini contenute in uno schermo video possono essere trasferi- 
te in circa 3 secondi e il protocollo di collegamento permette a ogni stazione della rete di specificare 
quali sono le stazioni trasmittenti e riceventi. E inoltre possibile diffondere un messaggio a ogni ZX 
Spectrum collegato alla rete realizzando un interessante sistema di broadcasting. Ogni Sinclair ZX 
Spectrum può agire come unità di servizio per altri ZX Spectrum della rete pilotando una stampante 
ZX o qualsiasi altra periferica collegata tramite la interfaccia RS 232. Ogni ZX Spectrum può inviare e 
ricevere files dagli altri computer della rete sfruttando al massimo le possibilità offerte dallo ZX Mi- 
crodrive. La rete può essere costituita da 2 a 64 Spectrum. 


ZX INTERFACE 2 


È l’ultima novità in casa Sinclair per lo ZX Spectrum. Permette di utilizzare le nuovissime ZX ROM 
cartucce software di nuova concezione e di minime dimensioni. È previsto il collegamento per due 
JOYSTICK di tipo standard “9 poli D”. 

Con le nuove ZX ROM il programma è immediatamente caricato e pronto all’uso. 


GP 500 AS 
STAMPANTE 
AD IMPATTO 


GP 500 AS 
STAMPANTE AD IMPATTO 


Dal piacevole design e ad un prezzo incredi- 
bilmente contenuto, la GP 500 AS è una 
stampante ad impatto con matrice di stam- 
pa 5x7, S0 caratteri/secondo, 80 colonne, 
incorpora una interfaccia Seriale RS232C che 
consente il collegamento diretto alla ZX INTER- 
FACE 1 SINCLAIR dello SPECTRUM. 
Caratteri normali ed espansi, grafica, alimentazione 
della carta a trattori (moduli continui) larghezza 
9”3/6. Stampa un originale ed una copia. 
Set di 96 caratteri ASCII e 44 caratteri e simboli. 
Dimensioni: 315x114 x447 mm. 


si è costituito da be 
| fondotuttii probler 


> LIBRO 
7N REGALO!(-N 


| A 


di Angelo Motta 


parte prima 


Giocate questo ‘‘classico’’ arcade 
sul vostro ZX81 


ormula 1 è un gioco scritto intera- 
Pirene in linguaggio macchina, ad 
eccezione delle relative istruzioni che 
ho preferito scrivere in Basic per evita- 
re di aggiungere circa 700 codici mac- 
china ai 1069 già esistenti che i volon- 
terosi si cimenteranno ad inserire nella 
lunghissima REM iniziale. 
Il gioco prende spunto dai diversi arca- 
de di questo tipo esistenti nelle varie 
sale gioco e consiste nel guidare la 
propria vettura di “formula 1”, situata 
nel bordo inferiore dello schermo, lun- 
go una pista, sorpassando le auto che 
il computer fa apparire lungo la strada, 
senza urtarle ed evitando le uscite di 
strada. Si hanno a disposizione tre vet- 
ture e, dopo altrettanti scontri, il gioco 
finisce. 
Anche se a prima vista il tutto può 
sembrare molto facile, basta mettersi 
“al volante” per accorgersi, dopo alcu- 
ni istanti, che la velocità dell'auto au- 
menta sempre più fino ad arrivare a li- 
velli da “suicidi della strada”, questo 
grazie all'utilizzo del linguaggio mac- 
china. 
Contrariamente alla maggior parte dei 
giochi in commercio per lo ZX81, che 
utilizzano un solo carattere per i singo- 
li soggetti, in formula 1 le auto sono 
composte da 42 caratteri (matrice da 7 
righe x 6 colonne). Questo, se da un la- 
to comporta un notevole livello di gra- 
fica che fa dimenticare le limitazioni in 
tal senso del piccolo ZX81, da un altro 
fa sì che ben 306 dei codici macchina 
inseriti nella REM sono relativi ai ca- 
ratteri grafici delle auto (42 per quella 
del giocatore e 48 + 48 per quelle del 
computer), ai caratteri della collisione 
(126) ed a quelli raffiguranti lo “Start” 
iniziale (42). 
Il programma utilizza tutte le 24 linee 
dello schermo: le prime 22 per visua- 
lizzare la pista dove si svolge il gioco, 
la 23° per il punteggio della gara 
(SCORE) e quello massimo raggiunto 
(RECORD); la 24? per il colloquio fra 
lo ZX81 ed il giocatore prima dell’ini- 
zio della gara. 
Per avere a disposizione queste ultime 
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due righe si è azzerato il valore della 

variabile contenente le righe a disposi- 

zione dello ZX81 con la riga iniziale: 

10 POKE 16418,0 

e nel programma si è evitato l’uso della 

istruzione INPUT sostituendola con la 

INKEY$ in quanto la prima avrebbe 

mandato in blocco il programma. 

Per quanto riguarda la costruzione del 

gioco procedere come segue: 

—. caricare il listato della figura 1 che 
contiene le istruzioni per la realiz- 
zazione della REM iniziale lunga 
1073 caratteri contenente il lin- 
guaggio macchina (linee 1 — 96) 
ed il caricatore dello stesso (linee 
100 — 140). 

— dare il RUNed inserire i codici del 
linguaggio macchina riportati nel- 
la figura 2. Il programma si ferme- 
rà automaticamente dopo aver in- 
serito il 1069° codice. 

—. sostituire tutte le linee del pro- 
gramma 1, ad eccezione della 
REM, con quelle riportate nel li- 


stato della figura 3; dopodiché il 
programma è pronto all'uso. 
Prima di effettuare una prova, consi- 
glio la registrazione di quanto fatto in 
modo da proteggersi da eventuali can- 
cellature o blocchi del programma in 
caso di errore di digitazione dei codici, 
la cui unica soluzione sarebbe lo spe- 
gnimento dello ZX81 con conseguente 
perdita di tutto il lavoro fatto. Nel caso 
si verificasse questa eventualità, o un 
funzionamento errato del programma, 
per la ricerca degli errori riporto un 
breve programma, “DUMP* che per- 
mette di visualizzare il contenuto delle 

locazioni di memoria: 

9900 FOR I = 16514 TO 17580 
9910 PRINT I;"= ”; PEEKI 

9920 NEXT I 

Dopo aver dato il RUN appariranno 
sullo schermo i contenuti delle prime 
22 locazioni di memoria ed il program- 
ma si fermerà con il codice errore 
5/9910 (non c’è più posto sullo scher- 
mo). Dopo aver controllato i codici, 


per proseguire il controllo basta pre- 
mere i tasti CONT e N/L per far riparti- 
re il programma con le successive 22 
locazioni di memoria. è 

La correzione degli errori può essere 
eseguita in modo diretto con POKE 
m,n dove m è la locazione di memoria 
da correggere ed n il codice macchina 
da inserire. 

Per chi fosse interessato al linguaggio 
macchina e desiderasse studiare il pro- 
gramma, verrà riportato nella seconda 
parte dell'articolo il relativo Assembler 
suddiviso in blocchi per renderne più 
chiara la lettura. Fra questi blocchi me- 
rita una particolare attenzione quello re- 
lativo allo SCROLL INVERSO (ossia dal- 
l'alto verso il basso) che si trova fra le 
locazioni 17003 e 17030 e che può sen- 
z'altro essere utilizzato anche in diver- 
si altri programmi di giochi. Siccome 
nel programma questo SCROLL è sta- 
toi adottato appositamente per il gioco 
(solo le 18 colonne centrali vengono 
mosse), per il movimento di tutto lo 
schermo vengono riportati nelle figure 
6 e 7 il programma e l’assembler rela- 
tivo. La REM iniziale della figura è com- 
posta da 41 caratteri. Dopo aver lancia- 


Formula 1 


to il programma, apparirà il LIST dello 
stesso che scrollerà verso il basso. 


Possibili modifiche al gioco 


Se il gioco vi sembra troppo veloce o 
le auto a disposizione troppo poche, è 
possibile modificare questi valori in 
modo da adattarli alle proprie esigenze 
personali. 

Per quanto riguarda la velocità delle 
auto, il ciclo relativo all’accelerazione 
è contenuto fra le locazioni 16984 e 
17002. La locazione 16638 contiene il 
valore (iniziale 127) che caricato nel 
registro C determina quante volte quel 
ciclo deve essere eseguito. Ad ogni gi- 
ro di programma tale valore viene de- 
crementato di 2 (locazioni 16993 e 
16994 — DEC A —) sino a raggiunge- 
re un valore minimo di 3 che corri- 
sponde alla velocità massima dell’auto 
(originariamente tale valore scendeva 
fino a l], ma la velocità era tale da di- 
sturbare notevolmente i riflessi visivi). 
Per rallentare la velocità massima 
dell'auto occorre variare il valore mini- 
mo del ciclo contenuto nella locazione 
16990 con l'istruzione POKE 16990,n 


versione per ZX81 16K 4585789012 
caricatore linguaggio macchin 11_ REM 
O g:0 TRECCOZIA 458789012 
12 REM 
455789012 
13 REM 
455789012 
14 REM 
456789012 
15 REM 
458789012 
16 REM 
4587839012 
17 REM 
455789012 
18 REM 
456789012 
19 REM 
456789012 
S0 FOR 
92 IF P 
93 NEXT 
94 POKE 
98 POKE 
102 FOR 
148 IN 
M 3734567590123 
ascdaB5a3788985312 
3QDEM 192650 /2001234867090189 | Lilo coce 
(Ri REM 12345678901234567890123 a NERI 
sec RG Aa 1i16019001204567890123 2900 REM, 
15563#04274 34567890123 | 1564 CARA 
455789012345678901234 1010 REM 
8 REM 12345878901234587890123 | DOPO CIRC 
456789012345678901234 SARA" CRE 
so deGglastasosogngizosnereno1no | jas0 sil 
4 7 C 
"8 REM 32345570801204557890123 IL PRUGRA 
78 150, 
‘03 REN 12348670991290557890123 1930 REM, 
45578901234 
12 REM 12345678901234567892123 DEL PROGR 


M HWU0FeUupPUlpPUpUupPOPUFOPWPW 
IPEFEHMHPAMASUPAOPBUBRUBAEPMBPAE IMPE MP OA 


e | 
m 


IMraDDOH+DO 
ZA DHDMDC Hi 


dove n dovrà essere un numero dispari 
compreso fra 3 (velocità attuale massi- 
Per quanto riguarda invece il numero 
della auto a disposizione, tale valore è 
contenuto nella locazione 16637 ed è 
generato in fase di partenza fra i byte 
16698 e 16702 (LD HL, 16637 — (HL), 
3). Il valore del byte 16637 viene inol- 
tre controllato fra le locazioni 16781 e 
16788 e, se l'auto del giocatore è la 
prima, viene stampato lo START sulla 
pista. Pertanto, per aumentare le auto 
a disposizione dovranno essere variate 
2 locazioni, la 16702 (generazione del 
n.ro auto) e la 16786 (controllo se è la 
prima auto), entrambe con l’istruzione 
diretta POKE 16702,n e POKE 
16786,n dove n sarà il nuovo numero 
delle auto (teoricamente è possibile in- 
serire fino a 255 auto). 

Un'ultima avvertenza: nel caso il pro- 
gramma venga registrato dopo averlo 
fatto girare, portare a 0 i byte 16635 e 
16636 (POKE m,0) che contengono il 
valore del record raggiunto in quanto 
il programma non prevede l’azzera- 
mento automatico degli stessi in fase 


“di partenza. 


56738901234 
34567890912345657890123 
56789091234 
345678901234567590123 
5678901234 
3456878901234557890123 
5673901234 
3458789012345687820123 
58673901234 
3456789012345687890123 
5678901234 
3456789012345657890123 
5673901234 
3455789091234567890123 
5578901234 
345678901234567590123 
5673901234 
3456789012345678590123 
56789091234 

15514 TO_ 17578 

K I=118 THEN POKE I1,@ 
6511,0045 

6512,0004 

‘Again TO 175809 

K 16418=2 THEN SCROLL 
1 a = ";R 

Ma 

ESTO PROGRAMMA CONSEN 
Capo REM INIZIALE DI 
RE_IL RUN IN FRST E 
HeEzo MINUTO LA REM 
SERIRE QUINDI I 1069 
LINGUAGGIO MACCHINA E 
A SI FERMERA" CON 
NCELLARE LE LINEE DA 
ED INSERIRE IL RESTO 
MA BASIC. 
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Formula 1 

versione ZX81 16K 

codici da inserire nella REM 
di linea 1 


tO, 
E ff 


pi 
É 


[PRESE RIE NAE ACE SYENIE N CA NVISION NESS RIA Ge Get fel Et gno Gao Es INIL Ig a (PATATE 


Lil 


al 
E: 


PERÙ 
NEL 


Los "La pi S 1565 
16515 S 1055 
851% 38 3 33 | 16655 
16517 Si 1555 
L&S18 28 S 1055 
le519 2É S 005 
ig5=® 3S E eb 
leszi 2 ps 
16522 35 a ib 
\bSsza ‘A Loeb. 
LOPs4 28 3 ob 
16525 26 2 Lob 
\bsz6 3E A LoS 
L6S27 E) 105 
b5a8 E) LOS 
inba i 35 e) Lon 
SDAI Da e) 33 È 
L&sa3l 28 2 6 
\6s532 2 5 
L6S33 d n 
LE dA D 
L > 

L 3 

L 4 

L 

L 

i 

ì 

L 

Lì 


IM AIR EWA LIE Eee Joi A O EU 


FR SE e iE WIE VIEN CERTO EE VIA DIES IA RIA STE NIETO VIE DSS ERNIA SOSTE DLE VIE SIERIENEN NIDN] 


i, 

ha 

I) 

L 

di 
Pao L 
E en] L Lasi 
5 M 106 
asgze Mii 
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Formula 1 
versione per ZX81 16K 
programma principale 
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LEAR RNDOSE ERND" «07 (aio | C 
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ND), UIvaL Prog i 215 ;$4 PRI 
NT "#9" c035U6 FIAT i REM E£RND)IPI 
"osso; CL3 5 CLEAR FANDERNO" 
SOR see 7a CLS FI = 
enati= DR 50SUB De 
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VAL 15 FOR; FOR "> G0SUus NIN 
BUSLUE FAT i GOTO0 "E «dd / "59 LN E° 
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SdyaF <<< BR RETURN S84:76bhFNDE£FR 
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Nel prossimo 
numero di 
SUPERSINC il 
listato Assembler 
di Formula 1 


di C. Wakelin e T. Parklett 
trad. e adatt. 
di Paolo Maffei 


Un uomo da salvare in cima ad 
un’alta montagna... 


U? gioco dai comandi estremamen- 
te semplici, in cui il vostro compito 
consiste nel recupero di un omino ri- 
masto isolato in cima ad una monta- 
gna. Col tasto W potrete spostarvi ver- 
so l'alto, mentre con S la vostra quota 
diminuisce. Perché il salvataggio rie- 
sca dovete passare appena poco più in 
alto dell’omino; dopo di che passeete 
in un altro schermo dove, tenendo pre- 
muto il tasto B, atterrerete mettendo 
in salvo il vostro passeggero. 
Guadagnerete punti anche passando, 
quando possibile, sopra i serbatoi di 
carburante che galleggiano in aria. 
Quanto agli ostacoli, vedete di evitare 
le nuvole, imprevedibilmente consi- 
stenti... 

La fine del gioco è piuttosto atipica... 
non c'è. Potete difatti continuare a gio- 
care fino a quando avete voglia, ma at- 
tenti! Al più piccolo errore perderete 
tutti i punti faticosamente conquistati. 


Soccorso aereo 
versione per ZX Spectrum 16K /48K 


1 GO SUB 9000 
2 PAPER 5: CLS : PLOT INK 3; 
0,40: DRAW INK 3;255,0 
3 LET hs=0 
4 LET sc=0 
6 LET vi=2 
7 LET mo=0 
8 LET uo=0 
10 PLOT 20,40: DRAW 30,20: 
DRAW 40,30: DRAW 5,10: 
DRAW 12,0: DRAW 5,-10: 
DRAW 24,-15: DRAW 25,-30: 
DRAW 3,-5 
100 PRINT AT-_17,0;"{32SG8}""'" 


150 


160 


170 


180 


190 


200 


600 


680 


{32SG8}"'"{325SG8}"!" 
{32SG8}"'"{32SG8}" 
PRINT AT 3,6; INK 7;"AB"; 


AT-A567 :INK 7;"CD" 

PRINT AT 8,17; INK 7;"AB"; 
AT Se17;: GNK dè; "CD" 

PRINT AT 6,19; INK 7;"AB"; 
AT: dip MINE 10510" 

PRINT AT 2,28; INK 7;"AB"; 
AT 3,528; INK 7;"CD" 

PRINT. AT 1,2; INK 7;"AB"; 

AT ‘248 DEN } POD 


PRINT AT 12,4; INK 7;"AB"; 

AT 13,4% INK 72%CD" 

FOR f=1 TO 9 STEP 2: 
CIRCLE INK 6;200,150,f: 
NEXT f 

PRINT _AT.8,12;"I" 
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3020 


PRINT AT 6,13;"I";AT 2,16;" 
E° 
SPRINT_AT App et 
JD 
LET x=28: LET y=14 
PRINT ni ViX7" BE “3;AT y-1, 
x;" 
PRINT AS y+l,x;" tà 
PRINT-.AT-0-,0; "PUNDE.-lisc 
LET x=x-1: BEEP_..0Y,=5 
IF INKEY$="w" THEN LET y=y 
-] 
IF y<] THEN LET mo= ] 
IF INKEY$="s" THEN LET y=y 
+]: IF y>15 THEN LET mo=] 
TF x<1 THEN". GO TO 3000 
IF y=3 AND x=6 OR y=4 AND x 
=6 THEN LET mo=] 
IF y=6 AND x=19 OR y=7 
AND x=1]19 THEN LET mo=] 
IF y=8 AND x=17 OR y=9 
AND x=17 THEN LET mo=] 
IF y=2 AND x=28 OR y=3 
AND x=28 THEN LET mo=] 
IF y=] AND x=2 OR y=2 AND x 
=2 THEN LET mo=] 
IF y=12 AND x=4 OR y=13 
AND x=4 THEN LET mo=] 
IF y=7 AND x=12 THEN LET.s 
c=sc+10: LET uo=] 
IF y=2 AND x=16 OR y=6 
AND x=13 OR y=4 AND x=3 
OR y=10 AND x=17 THEN 
LET sc=sc+30 I 
IF mo=] THEN PRINT AT Y,Xj 
Oo Lal vi=vi-] 
IF vi=0 THEN GO TO 2000 
GO TO 810 
BEEP 1,3: BEEP .7,4: BEEP. 
2,5: BEEP .3,4: BEEP .6,4: 
BEEP ‘.5,3: BEEP 1,3 
FOR £=1°-"TO 100: NBXT £ 
GO TO 2 
CLS : PLOT 0,40: DRAW 
INK 4;255,0 
LET x=29 
PRINT AT 16,0;"{32SG8}""'" 
{32SG8}"! Cr32868 PE " 
{32SG8}" ' "{32S6G8}" URSLLI 
{32SG8}" 
IF uo=0 THEN PRINT AT 0,0; 
"SALVATAGGIO NON RIUSCITO,R 
IPROVA": PAUSE 100: CLS : 


GO TO 7 
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3030 
3035 


3040 
3045 


3050 
3060 


3500 
4000 


9000 


9010 
9020 


9030 


9040: 


9050 
9060 


.-9070 


‘9080 


9090 
9100 


9110 


IF INKEYS="bDb" 


THEN LET y=y 


+] 

PRINT IR Y,X;" EF VERTE, 
x;" 

IF x<2 THEN LET mo=] 

LET x=x-1]: BEEP .01,0: 

BEEP .01,-10 


IF y>14 THEN GO TO 4000 
IF mo=] THEN PRINT AT Y,X; 
" GH ": GO TO 2000 
GO TO 3030 
LET sc=sc+100: PRINT 
FLASH 1;AT 12,9; "BRAVO": 
FOR £=1 TO 200: NEXT £: 
CLS GO TO 6 
FOR c=1] TO 10: FOR n=0 TO 7 
:° READ d: POKE USR (CHR$ (1 
43+c))+n,d: NEXT n: NEXT c 
DATA 0,0,0,7,15,31 63,03 
DATA 0,0,0,128,192,248,252, 
252 
DATA:68:327/,12.7 763,31, 0070 
DATA 252,254,254, 254, 2520, 


DATA 63,85,255,255,255,255, 
127,0 

DATA 135,255, 255,255%255,25 
4,252,0 

DATA 2,61,203,212,35,44,20, 
3 

DATA 250, 22,34,162,92,144,4 
8192 

DATA 90,90,126,60,60,60,36, 
36 

DATA 0,0,102,255,255,255,10 
2,0 

RETURN 


di Alberto Chiericati 


Il brivido dell’azzardo, senza il 
rischio della bancarotta! 


I: seguente programma consente 
di giocare a poker tra un gioca 4 
tore ed il computer. 


Le carte vengono scelte da un 
mazzo di 24, partenti dal 9 per 
arrivare fino all’asso. 


Durante la prima parte del gioco, 
lo Spectrum distribuisce le carte 
a sè ed al giocatore, ed a seconda 
della combinazione di cui dispone 
decide e cambia quelle inutili. Succes- 
sivamente tocca al giocatore, dopo che 
sono state visualizzate le carte, decide- 
re quali scartare (il massino è di 4). 


Dopo la seconda e definitiva visualizza- 
zione del gioco, l'operatore è chiama- 
to a fare la sua puntata, che può anda- 
re da 100 dollari a 3000 dollari. 


A questo punto il Sinclair agisce nei se- 
guenti modi: 


VEDE quando dispone di almeno una 
coppia e la puntata non è molto alta; al- 
trimenti vede ugualmente se però ha al- 
meno un tris. 


PASSA quando la puntata del giocato- 
re è troppo alta e non dispone come mi- 
nimo di un tris. 


RILANCIA DI 10008: 1) Nel caso non Linee 
abbia nessuna combinazione valida 15-25 
(quindi cerca di bluffare). 45-90 
2) Se ha più di un tris. 100-190 
310-370 


390-440 
445-540 


Dopo il successivo rilancio di 1000 dol- 
lari da parte del computer, l'operatore 
deve decidere se vedere (digitando VE- 
DO), oppure se passare (digitando PAS- 


SO). L'ordine con il quale lo Spectrum 
assegna le combinazioni valide è il se- 
guente: coppia, doppia coppia, tris, sca- 
la, full, colore, poker, scala reale. 


560-590 
610-660 
670-760 
770-788 


790-856 
860-900 
905-930 
940 
950-1050 
1055-1090 
1100-1146 
2001-3040 
4000-5840 


d 


Commento 


Generazione caratteri grafici 

Distribuzione carte 

Verifica combinazioni carte dello Spectrum 
Verifica della scala colore 

Verifica scala 

Nessuna combinazione valida (tiene carta più alta e scarta 
le altre) 

Verifica coppa e tris 

Verifica doppia coppia 

Cambio carte giocatore 

Puntata del giocatore 

Verifica configurazioni carte Spectrum e giocatore 
Verifica scala 

Verifica scala colore 

Verifica scala reale 

Assegnazione punteggi 

Decisione dello Spectrum se vedere o passare 
Determinazione vincitore 

Routine per assegnazione e cambio carte 
Generazione grafica gioco 
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Poker 
versione per ZX Spectrum 48K 


8 


9 


10 


INK. /3-CLb5-S ENRUI - VUuo»: la 
spiegazione ?(s/n) "; 

LINE gs: IF g$="n" THEN 

GO TO 15 

BORDER 1]: PAPER l: INK 6: 
CLS 

POKE 23658,0: PRINT AT 0,0; 


"Il gioco e' molto semplice 
si tratta dello straight 
poker o poker all'italia 

na."'"Inizialmente distribu 

isco cinquecarte a me,e cin 
que a te."'"Delle mie cinqu 

e mi preoccupo discartare q 

uelle inutili."'"Successiva 

mente sarai tu a doverfare 
lo stesso per te.Tieni ben 
presente che la carta piu' 

a sinistra e' la numero 

uno ed andando verso des 

tra il numero della carta 
aumenta."'"Il capitale iniz 
iale e' di,sia per me che 
te, 7000 S."'"Per le puntat 

e il minimo e' di 100 $ ed 
il massimo di 3000 $ manon 
cercare di bluffare perche 
' con me e' tutto inutile. 

"'"In bocca al lupo e vinca 
il migliore:cioe' io ! 

" 

LET a$="0247797402442020247 

797402442205599977402024779 

740244220": LET b$="2244624 

4624444<22446244624444<8848 

44444<22446244624444<" 

FOR j=1] TO LEN a$: LET n= 

CODE a$(j)-48: LET z=CODE b 


$(])-48 

IF INKEYS<>"" THEN 
GO TO 15 

BEEP :z/20,n: NEXT }]: 
GO TO 1] 


FOR a=0 TO 39 

READ b: POKE USR "a"+a,b: 
NEXT a 

DITE: 24,60;126:2957255 726, 
24,60 

DATA 56,56,16,214,254,214,1. 
6,56 

DATA: "24 ,60:,1260,253,259,.1270, 
60,24 
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24 


a 


26 
dI 


28 


30 


35 


37 


40 


45 


50 


60 


DATA: +:02,2554255,255255;:1:2 
6,60, 24 

DATA 38,105,169,41,41,41,41 
r118 

LET tit=7000: 
POKE 23658,8: 
0 

INPUT "Come ti chiami ?";z$ 


LET tot=7000 
POKE 23609,10 


BORDER 4: PAPER 4: INK 0: 
CLS 
FOR 2=4 TO 21: PRINT AT z,0 


ol 
LA 


": NEXT Z 
PRINT AT 1,9;" 
": PRINT AT 2,9;" 
n 


PRINT AT.-130: 1}; 
PAPER 1; INK 6; 

ATTENDI !" | 
REM **DISTRIBUZIONE CARTE 
xx 

LET j=0: DIM b$ 
LET k=0:: DIM t(6): 
nm BU. 99 

DIM w(8): DIM c$(15,2): 
DIM £(30): LET g=0: 
RANDOMIZE 

FOR a=l TO 19 STEP 2 

GO SUB 2000: IF h=1 THEN 
GO TO 80 


FLASH 1; 
PREGNT PF; 


(2042)"3 
LET d$ 


NEXT a 

REM **VERIFICA CARTE SPEC 

TRUM* * 

LET pos=0: LET pun=0: 
LET p=0: LET n=0: LET u=0: 
LET Zz=0 

FOR a=1] TO 7 STEP 2: FOR d= 


a+2 TO 9 STEP 2 

IF bS$(a)=b$(d) THEN LET n= 
n+1]: LET p=p+]: LET c$(p)=b 
S(a): LET u=INT (a/2+1) 
NEXT d: NEXT a 

IF n=0 THEN GO TO 310 

IE n=T° OR n=3 THEN" GO"TO" 5 


60 
IF n=2 THEN GO TO 610 
GO TO 660 


REM **SCALA COLORE** 
FOR a=2 TO 8 STEP 2: 
FOR d=a+2 TO 10 STEP 2 
IF b$(a,1)=b$(d,1]) THEN 
LET u=u+l]: LET d$=b$(a,1) 
NEXT d: NEXT a 
IF u=10 THEN GO TO 660 
IF u<6 THEN GO TO 390 


350 
360 
370 


380 
385 


390 


400 


410 
420 
430 
440 
443 


445 


450 


455 


460 


IF b$S( 
a+1)=d$ THEN GO TO 370 


FOR a=l TO 9 STEP 2: 


GO SUB 2000: IF h=1] THEN 
GO TO 360 

NEXT a: GO TO 660 

REM **SCALA** 

FOR Sss=1 TO %SIBEP 2: 
LET.j=INT..(aZz+HL): 

GO SUB 3000: NEXT a 
LET-p=0: FOR*ast. TO. 5: 
FOR; d=1 TOR Rae 
THEN GO TO 410 

IF INT f(a)=INT (£(d)-1) 
THEN LET z=z+1]: LET p=p+t2 

LET w(p-T)}=INT £(a): 

LET w(p)=INT f£(d) 

NEXT d: NEXT a 

LET y=1 

IF 2=4 THEN. GO CTO 660 
IF z<3 THEN GO TO 490 
REM **NESSUNA COMBINAZION 
E VALIDA** 

LET q=p: LET p=0 


FOR a=] TO 5: LET m=0: 

FOR d=1 TO q: IF m=1] 

THEN GO TO 460 

IF INT f(a)=w(d) THEN 

LET m=1: LETYpeprto: WET: 
p)=a 

NEXT d: NEXT a: LET y=9: 
LET..j=0 


470 


475 


480 


485 


487 
490 


500 
510 


520 
530 
540 
550 
560 
570 
580 
610 
630 
640 
650 
660 
670 
680 
685 


687 
690 


700 
705 


710 
Tali, 


RR 
720 
730 


FOR a=l TO 5: LET m=0: 
FOR d=a TO a: IF m=] 
THEN GO TO 480 
IF a<>t(d) AND m=0 AND 3= 


O THEN LET m=1: LET j=1: 
LET y=2*a-]1 

NEXT d: NEXT a: LET a=y 

GO SUB 2000: IF h=1] THEN 
GO TO 485 

GO TO 660 


FOR a=2 TO 5: IF f(a)>f(y) 
THEN LET y=2*a-] 


NEXT a 
FOR a=1l TO 9 STEP 2: IF b$( 
a)=b$(y) THEN GO TO 530 
GO SUB 2000: IF h=l THEN 
GO TO 520 
NEXT a 
GO TO 660 
REM **COPPIA E TRIS** 


FOR a=l -TO-%STPEP..3: IF c$S( 
1)=b$(a) THEN GO TO 580 
GO SUB 2000: IF h=1 THEN 
GO TO 579 
NEXT a 
FOR..a=1]. TO 9 STEP UR 


TE::c$(1:)sb$.(a) OR c$(-2)=bs( 
a) THEN GO TO 650 
GO SUB 2000: IF h=1] THEN 
GO TO 640 
NEXT a 
LET a=9: GO SUB 4000 


REM **CAMBIO CARTE** 


INPUT "Quante carte cambi ? 
tx LINE h$:t TE fhSa"0 OR HS= 
8. tt RHBN:: ‘GO:270: -680 

LET v=VAL hS: IF v<0 THEN 
GO TO 680 


IF v=0 THEN GO TO 780 
IF v>4 THEN PRINT AT 4,0; 
FLASH 1; "NON PUOI IL MASSI 
MO E'4!": PAUSE 120: 
PRINT AT 4,0;" 


GO TO 680 
FOR a=l TO v 
INPUT "Quale ?", 
IF ail OR e (Jon 
GO TO 705 
LET w(a)=VAL j$ 
IF w(a)<1] OR w(a)>5 THEN 
GO TO 705 
NEXT a 
FOR x=1 TO. v 
LET a=(2*w(x)+9) 


LINE j$: 
" THEN 
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784 


785 


788 


789 


790 


199 


800 


810 


820 


830 


GO SUB 2000: 
GO TO 740 
NEXT x 
LET a=9: 
REM ****%* 


IF h=1] THEN 


GO SUB 4010 
PUNTATA ***** 
INPUT "Quanti dollari punti 

vie EINE K9v IFCkS="". 

OR k$=" " THEN GO TO 780 
LET pun=VAL kS: IF pun<100 
THEN PRINT AT 4,0; 
FLASH 1; "NON PUOI IL MINIM 
O:ES (DI 100\S°1"3 PAUSE 120 
° PRINT AT 4,0;" 

, 

GO TO 780 

IF pun>3000 THEN PRINT 
AT 4,0; FLASH 1;"NON PUOI I 
LUMRSSIMO E' 3000 S !": 
PAUSE 120: PRINT AT 4,0;" 


": (GO TO 780 


IF pun>tot THEN PRINT AT 4 
,0: FLASH 1;"NON HAI TANTO 
DENARO !": PAUSE 120: 

PRINT AT 4,0;" 


GO TO 780 
IF pun>tit THEN PRINT AT 4 
10; FLASH 1;"NON HO TANTO D 
ENARO !": PAUSE 120: 

PRINT AT 4,0;" 

U, 

GO TO 780 r 
REM **VERIFICA COMB.CARTE 
KkKk 
LEP.y=]|x LET b=1: 

LET 3=%2/LET h=5: 

LET 088 SLET,g=9: LET : 
è» G0eSbBb- 495 BET b=11: 

LET y=]l: LET c=17: LET g= 
19 (LET bh=3,5e- LEU 0=18: 

LET s=20:-LET :m=12: LET i= 
2% GO SUB: #95: GO TO 1052 
LET q=0: LET 1=0: LET n=0: 

LET p=0: LET z=0: LET u=0 
FOR a=b TO c STEP 2: FOR d= 
a1x2ZoT0 4. STEP: 2 


IF b$(a)=b$(d) THEN LET n= 

n+1: LET p=p+1]: LET q=p: 
LET c$(q)=bS(a) 

FOR r=1] TO q-1]: IF c$(q)=c$ 
(r) THEN LET p=p-l]: IF p<0 
THEN LET p=0 

NEXT r 
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832 
833 


945 


960 


965 


970 


DT4 


97.5 


978 


NEXT d: NEXT a 
IF c$(1)=c$(2) OR n<>4 
THEN GO TO 851 
FOR d=2 TO 3: IF c$(1)=c$(d 
) "THEN | GOSP0 845 
LET c$(4)=c$(1): LET c$(1)= 
c$(d): LET c$(d)=c$(4) 
NEXT d 
Te n=e4 ‘THEN LET n=5 
IF n>=1 THEN GO TO 975 
IF n>0 THEN GO TO 975 
FOR ‘a=l] TO 19 STEP 2: 
10 THEN LET k=5 
LET j=INT (a/2+1+k) 
GO SUB 3000: NEXT a 


IF aò 


| REM ***VERIFICA SCALA*** 


FOR a=b TO’ h: FOR d=b°TO h: 
IF a=4 THEN GO TO 880 

IF INT f(a)=INT (£(d)-1) 
THEN LET z=z+l] 

NEXT d: NEXT a 


FOR e=m TO h: 
THEN LET y=e 
NEXT e 

REM **VERIFICA SCALA COLO 

RE** 

FOR a=m TO o STEP 2: 

a+2 TO Ss STEP 2 
IF b$(a,l)=b$(d,1) THEN 
LET-u=u+1: LET daS=bS(a,1) 

NEXT d: NEXT a 

IF u=10 AND z=4 THEN LET n 


IF f(e)>£(y) 


FOR d= 


=8+(CODE d$/1000): GO TO 10 
50 , 

IF; U<PHEN - LET n£7: 

GO TO 1050 

IF .z=4 AND. INT..f(y)=11 . 
THEN LET n=4.2: GO TO 105 
0 

IF z=4 AND INT £f(y)=12 

THEN LET n=4.4: GO TO 105 
0 

IF z=4 AND INT £f(y)=13 
THEN LET n=4.5: GO TO 105 
0 

IF z=4 AND INT £f(y)=14 
THEN LET n=4.6: GO TO 105 
0 


IF n>=1] THEN LET l1l=f(y): 
GO TO 1030 

LET a=l: GO SUB 980: LET x= 
Le TF n22 TREN LET eZ 

GO SUB 980: LET 1=1+x 

GO TO 1040 


1055 


IF c$s(a,l)="E" THEN: LET l= 
10: GO TO 1030 

IF c$(a,l)="I" THEN LET 1= 
11:*GO7T0/10390 

IF c$(a,l1)="O" THEN LET.l= 
t2: GO TO. 1.0 

IF c$(a,l)="K" THEN LET 1= 
13: “GO=TO eso 

IF cS(a,l)="A" THEN ..LET 1l= 
14: GO TO 1030 

IF Csa} set THEN... GO TO 1] 
030 

LET l1=VAL.c$(a) 

LET 1=1/100: RETURN 

LET n=n+1 

LET t(i)=n: RETURN 


IF pun>1500 AND t(2)<3 
THEN LET g=2 


LET m=0: LET v=0: IF INT t( 


1)=0 AND tit>=pun+1000 

AND tot>=pun+1000 THEN 
PRINT AT 4,0; "RILANCIO DI 
1000 ! 3 0A 


1058 
1060 


1070 


1071 
1072 


1075 


1080 


1085 


IF pun>1500 AND t(1)<3 

AND t(2)>3 THEN PRINT 
AT 4,0; "PASSO ! 

"s“PAUSE 150: 

LET m=1: GO TO 1130 

IF t(1)>4 AND tit>=pun+1000 
AND tot>=pun+1000 THEN 
PRINT AT 4,05" RILANETO. DI 


1000 ! het. 

GO TO 1072 
GO TO 1090 
LET v=1000: INPUT "COSA FAI 
?", LINE d$: IF d$="PASSO" 
THEN LET m=1]: GO TO 1120 


IF d$="VEDO" AND tot<pun+tv 
THEN PRINT AT 5,0; 
FLASH 1; "NON HAI TANTO DEN 
ARO !": PAUSE 150: PRINT 
me 5,0:" | 
** <G0°T0:1720 


IF d$="VEDO" THEN GO TO 11 
00 
GO TO 1072 


1090 


1095 


1100 


1110 


1120 


1 ted 
11390 


1140 


1143 


1144 
1145 


1146 


PRINT AT 4,0; "VEDO ! 
ULES 

PAUSE 150 

REM **ASSEGNAZIONE 

ORE* * 

IF t(1)=t(2) THEN 

AT 4,0;"LA MANO E' PARI ! 
“"'"SEI UN VALID 

O AVVERSARIO. «È 

. GO TO 1140 

IF t(1)<t(2) 

30 


PRINT AT 4,0; "HO VINTO IO.S 
ONO TROPPO FORTE. SetLBTot 
ot=tot-pun-v: LET tit=tit+p 
un+tv: IF v=0 AND m=1] THEN 
LET tot=INT (tot+pun-pun*] 
0/100): LET tit=INT (tit-pu 
n+pun*10/100) 
GO TO 1140 

PRINT AT 4,0;"HAI VINTO TU 
[| ULTI 

PRINT "COMPLIMENTI. 

": LET tot=tot 

+pun+v: LET tit=tit-pun-vt:' 
IF v=0 AND m=1] THEN LET t 
ot=INT (tot-pun+pun*10/100) 
: LET tit=INT (tit+pun-pun* 
10/100) 

IF g=2 THEN PRINT AT 18,0; 
“HAI BLUFFATO !": GO TO 114 
4 


IF g=1 THEN PRINT AT 18,0; 
"HO BLUFFATO !" 
LET a=-1: GO SUB 4020 


IF tit<100 THEN CLS : 
PRINT AT 10,0; FLASH 1; "NO 

N HO PIU' DENARO PER GIOCAR 

E !": LET w(1)=6?:- GO ‘TO 11.6 
0 

IF tot<100 THEN CLS: 
PRINT AT 10,0; FLASH l;"NO 

N HAI PIU' DENARO PER GIOCA 
RE!": LET w(1)=6: GO TO 116 
0 

INPUT "Vuoi continuare ?(S/ 

N) "; LINE pS: IF p$="N" 
THEN STOP 

IF w(1)=6 THEN GO TO 26 

GO TO 35 

REM ***GENERAZIONE CARTE* 
Kt 

LET h=0: LET t=2: LET g=g+l 
® LET b=INT (RND*6)+9: 
LET c=RND*.004+.144: 


VINCIT 


PRINT 


THEN GO TO 1] 


LET b 
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2005 


2010 
2020 
2030 
2035 
2040 
2050 
2060 


2070 
2080 


2090 
3000 


3005 
3010 
3020 
3030 


3040 


3990 


4000 


4010 


4011 


4020 


4030 


=b+(INT (c*1000))/1000: 
IF INT b=10 THEN LET b$(a 


pe "E": GO TO ‘2040 

IF INT b=11 THEN LET b$(a) 

="JI": GO TO 2040 

IF INT b=12 THEN LET b$(a) 
="“O": “GO.TO 2020 

IF INT b=13 THEN LET b$(a) 
="K": go. 102040 

IF INT b=14 THEN LET b$(a) 
="A":°.GO TO 2040 

LET b$(a)=STRS$ b 

IF c<.146 THEN LET t=0 
LET £(g)=b: LET s=g 

FOR e=l] TO s-1: IF f(e)=b 
THEN LET g=g-1l: LET h=] 
NEXT e 


LET b$(a+1,1)=CHRS INT (c*1 


000): LET bS(a+1,2)=STRS t 
RETURN 

IF b$(a)="E " THEN LET f(j 
)=10: RETURN 

IF b$(a)="J " THEN LET £(J 
)=11: RETURN 

IF b$(a)="O " THEN LET £(j]j 
)=12: RETURN 

IF b$(a)="K " THEN LET f(j 
)=13: RETURN 

IF b$(a)="A " THEN LET f(j 
)=14: RETURN 

LET £(j)=VAL b$S(a): 

RETURN 


REM *****PARTE GRAFICA*** 
kk 


FOR z=4 TO 21: 


ol 
LA 


PRINT AT zZ,0 

We NEXT 2: PRINT 

AT 1,9; INK 0;"LE TUE CARTE 
1": GO TO 4040 

PRINT'AT 1,97 INK 0; "QUESTE 
SONO LE": PRINT AT 2,10;"N 

UOVE CARTE!": FOR z=1 TO v: 
IF w(z)=5 THEN GO TO 4030 


NEXT z: GO TO 4040 
PRINT AT 1,9; INK 0;" QUEST 
E ERANO ": PRINT AT 2,10; 


INK 0;"LE MIE CARTE!": 
GO TO 4030 
PRINT AT 9,19; 
BRIGHT 1;" 
PRINT AT 10,19; 
BRIGHT 1;" 
PRINT AT 11,19; 
BRIGHT 1;" 


PAPER 7; 
LL 
PAPER 7; 


PAPER 7; 
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4040 


4041 


4042 


4043 


4044 


4045 


4046 
4049 
4050 


4060 
4070 


4080 


4085 
4090 


47100 


4710 


4720 


4130 


4140 
4160 


PRINT AT 12:19; 
BRIGHT 1;" 
PRINT'AT'13, 194 
BRIGHT 1;" 
GO TO 4044 
PRINT AT 0,0; 
{32SG8}" 
PRINT ‘AT .1,0; INK 6:"{SG8}" 
° PRINT AT 1,8; INK 6;" 
{SG8}": PRINTUAT 1,23; 

INK 6}"{SG8}": PRINT AT }], 
31; INK 6;"{SG8}" 


PRINT'AT-Z.0f I1M8.6:" 
FOSCHt*+ DETRNEOAN 2,53; 
INK 6;"{95G8}" 

PRINT ATO,,1% PAPER 2; 
INK 6; OVER 1l;z$: PRINT 

AT 0,23; PAPER ZI IMM, 
OVER 15 "SPECTRUM" 

PRINT AT 1,2;" pt - 
PRINT AT 1,25;" " 


PRABC:AT- di: INK 7 ptot o! È 
": PRINT AT 1,24; INK 7 siedo 
pt, 292: (DHEN: LET 2 
0: GO TO 4049 
GO TO 4085 
FOR y=6 TO 16 
PRINT AT y,6; 
BRIGHT 1;" 
" 


PAPER 7; 


PAPER 7; 


INK 6;" 


PAPER 7; 


NEXT y 
PLOT 215,127: DRAW -168,0: 
DRAW 0,-88: DRAW 168,0 


FOR x=47 TO 143 STEP 24:. 
PLOT x,127: DRAW 0,-88: 
NEXTaX3 "PLOT 215,127: 
DRAW 0,-88 

LET q=a 

FOR c=7 TO 15 STEP 8: LET a 

=q 

FOR"Db=PANVPON9 STEP 3f/LET a 

=a+2 

PRINT AT c,b; PAPER ® 
BRIGHT 1; INK VAL b$(a+1,2 
);b$(a,l1) 

PRINT AT 8,b; PAPER 7;. 
BRIGHT 1; INK VAL bS$(a+1,2 
);b$(a+1,1) 

PRINT AT 14,b; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 

);b$(a+1,1) 

NEXT b 

PRINT AT 8,25; 
BRIGHT 1]; 

};bS(a+7,1) 


PAPER 7; 
INK VAL b$(a+1,2 


4170 
4180 
4190 
5020 
5030 
5040 
5050 
5060 
5070 


5300 
5310 
5320 
5330 


5340 


5400 
5410 
5420 
5430 
5440 
5450 
5500 


5510 


PRINT AT c,25; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 
):bS(a,1) 


PRINT AT 14,25; PAPER 7; 


BRIGHT 1]; INK VAL b$(a+1,2 
);b$(a+1,1) 

NEXT c 

IF b$(a,1)="9" THEN 

GO TO 5300 

IF b$(a,l1)="E" THEN 

GO TO 54000 

IF 'b$(a;1)="1" ‘THEN 

GO TO 5500 

IF b$(a,1)="Q" THEN 

GO TO 5600 

IF b$(a,l1)="K" THEN 

GO TO 5700 
IF b$(a,l1)="A" THEN 

GO TO 5800 
PRINT AT 10,19; PAPER 7; 
BRIGHT 1]; INK VAL b$(a+1,2 


):b$(a+t1,1) 
PRINT AT 10,25; 
BRIGHT 1]; 
);:b$(a+1,1) 
PRINT AT 11,22; 
BRIGHT ]}]; 
);b$(a+1,1) 
PRINT AT 12,19; 
BRIGHT 1]; 
);b$(a+1,1) 

PRINT AT 12,25; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 
);bS$(a+1,1]): RETURN 


PRINT AT 10,19; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 
);b$(a+1,1) 

PRINT AT 10,25; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 
);b$(a+1,1) 

PRINT AT 9,22; PAPER 7; 
BRIGHT l; INK VAL b$(a+1,2 
);b$(a+1,1) 

PRINT AT 12,19; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 
):b$(at1,1) 

PRINT AT 12,25; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 
);b$(a+1,1) 

PRINT AT 13,22; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 
);bS$(a+1,1]): RETURN. 

PRINT AT 9,21]; PAPER 7; 
BRIGHT 1; INK VAL bS$S(a+1,2 
)s"{3SG3}" 
PRINT AT 10,22; 


PAPER 7; 
INK VAL b$(a+1,2 


PAPER 7; 
INK VAL b$(a+1,2 


PAPER 7; 
INK VAL b$(a+1,2 


PAPER 7; 


5520 


5530 


5540 


5600 


5610 


5620 


5630 


5640 


5700 


5710 


5720 


57930 


5740 


5800 


5810 


5820 


5830 


5840 


BRIGHT 1; 
) a EG i 
PRINT AT 11,22; PAPER 7; 

BRIGHT 1; INK VAL b$(a+1,2 
) RL 5}" 

PRINT AT 11,22; 
BRIGHT ]; 
s RFI" 

PRINT AT 12,21; PAPER:-7 
BRIGHT l; INK VAL b$(a+1,2 

);"{SG1}{SG2}": RETURN 

PRINT AT 9,21]; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 

) *#f35G31* 

PRINT AT 10,21]; PAPER 7; 
BRIGHT 1; INK VAL b$(a+t1,2 

);"{SG5} {G5}" 

PRIEST AT 11,21; PAPER. 
BRIGHT 1; INK VAL b$(a+1,2 

);"{SG5} {G5}" 


PRINT AT 12,21; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 

);"{SG1}{SG3}{SG8}" 

PRINT AT 13,24; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 

);"{G2}": RETURN 

PRINT AT 9,21; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 

Fi {GS 

PRINT AT 10,21; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 

Yr"TG5YF.{SG6}" 

PRINT AT 11,21; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1,2 

)x"{G5}{SG6}" 

PRINT AT 12,21; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1, 
e G5SPICOPI 

PRINT AT 13,21; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1, 

);"{G5} {G6}": RETURN 

PRINT AT 9,21]; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1, 

) pi 3963)" 

PRINT AT 10,21; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1 

) #"{SG5} {G5}" 

PRINT AT 11,21; PAPER 7; 
BRIGHT 1; INK VAL b$(a+1 

);"{SG1}{SG3}{SG2}" 

PRINT AT 12,21; PAPER 7; 
BRIGHT 1]; INK VAL b$(a+ 

ba MESE 

PRINT AT 13,21; PAPER 7; 
BRIGHT 1; INK VAL b$(a+ 

);"{sG5} {G5}": RETURN 


INK VAL b$(a+1,2 


PAPER 7; 
INK VAL b$(a+1,2 
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SA LD_LI_nt_ rr rr tt _t_II 


di Carlo Panzalis 


parte prima 


Una piccola ma esauriente guida 
all'uso dei caratteri grafici dello 
Spectrum 


C ome è noto lo Spectrum, sia nella 
versione a 16 che a 48 Kbyte di 
RAM, consente all'utente di definire 21 
caratteri grafici a proprio piacimento, 
ciascuno dei quali associato ad una let- 
tera da A ad U. 

Tuttavia molto spesso l'utente stenta a 
prendere rapidamente confidenza, con 
questa peculiarità dello Spectrum, in 
modo da sfruttarla adeguatamente per 
arricchire i propri programmi. 

E proprio pensando a questo “lettore 
in difficoltà” che iniziamo questa car- 
rellata sulle caratteristiche del set di ca- 
ratteri, sia residenti sia definibili dall’u- 
tente, nonché sulla gestione dell’imma- 
gine video, nella speranza di riuscire a 
rispondere ai più tipici interrogativi re- 
lativi a questo tema, fra i quali: come 
definire i caratteri grafici; come utiliz- 
zarli in un programma; come superare 
il tetto di 21 caratteri e, ad esempio, de- 
finire un nuovo set completo di carat- 
teri alfanumerici da utilizzare al posto 
di quello residente, e così via. 
Innanzitutto è opportuno ricordare che 
lo schermo preenta 22 linee (orizzonta- 
li) e 32 colonne (verticali), e risulta 
quindi suddiviso in 22*32= 704 qua- 
dratini. Onguno di questo, che indi- 
cheremo genericamente con il nome 
carattere, è composto da 64 pixel (pun- 
ti), ognuno dei quali può essere acceso 
o spento (cioè avere stato 1 o 0), assu- 
mendo così rispettivamente il colore 
dell'inchiostro (INK) o il colore della 
carta (PAPER). Sono dunque le nume- 
rosissime combinazioni di carta ed in- 
chiostro a determinare l'aspetto dei di- 
versi caratteri. Quando sullo schermo 
non ci sono né scritte né altri simboli, 
ogni carattere è costituito da 64 pixel a 
stato 0, vale a dire tutti del colore della 
carta; se decidete di stampare la lette- 
ra A nel quadratino in alto a sinistra 
(coordinate 0,0) in quest’ultimo alcuni 
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pixel si accenderanno assumendo il 
colore dell’inchiostro e consentendo la 
rappresentazione del simbolo prescel- 
to. Tutti i simboli imprimibili sul vi- 
deo, siano essi caratteri residenti, sim- 
boli grafici sulla prima fila di tasti o 
quelli definibili dall'utente, sono dun- 
que costituiti da 8 righe orizzzontali di 
8 pixel ciascuna, e possono essere 
stampati solo in corrispondenza di uno 
dei 704 quadratini di cui sopra. 

A scopo esemplificativo costruiamo 
una griglia di 8*8 quadratini di lato, 
ognuno dei quali rappresenta natural- 
mente un pixel, e reppresentiamo 
l'aspetto del carattere Spectrum A 
maiuscolo. Come è agevole notare, la 
prima e l’ultima riga di 8 pixel sono co- 
stituite da pixel spenti (per realizzare la 
separazione dei caratteri verso l'alto e 
il basso) e quindi tutti a stato 0. Proce- 


dendo dall'alto verso il basso vediamo 
invece che nella seconda riga quattro 
pixel sono accesi ed assumeranno 
quindi il colore dell'inchiostro. Il nu- 
mero binario 00111100 (60 convertito 
in sistema decimale) potrà dunque rap- 
presentare esattamente questa situa- 
zione. In modo del tutto analogo pos- 
sono essere rappresentate attraverso 
codici numerici le altre righe di pixel. 
Gli 8 numeri che codificano il sîmbolo 
A sono contenuti negli 8 byte (gruppi 
di 8 bit, in questo caso rappresentanti 
lo stato dei pixel di un carattere) dalla 
locazione 15880 alla 15887: ogni volta 
che volete imprimere la lettera A lo 
Spectrum legge il contenuto di queste 
locazioni e lo trasferisce nelle locazio- 
ni che gestiscono l’immagine video 
(Display File), cui è devoluto il compi- 
to di decodificare i numeri in combina- 


zioni di pixel accesi/spenti. Tutto il set 
dei caratteri residenti (dallo spazio al 
segno di copyright), è contenuto se- 
condo quanto ora descritto a partire 
dalla locazione 15616 alla 16383. Si 
tratta di 96 simboli, ognuna dei quali 
occupa in memoria (ROM) 8 byte. 
Compreso questo meccanismo, il let- 
tore non dovrebbe avere difficoltà a 
definire un qualsiasi simbolo grafico, 
individuando i codici numerici (in no- 
tazione binaria o decimale indifferen- 
temente) atti a rappresentarlo: si tratte- 
rà sempre di disegnare una qualsiasi fi- 
gura in una matrice di 8*8 punti, tro- 
vare gli 8 numeri ad essa relativi e col- 
locarli nelle idonee locazioni di memo- 
ria. A tale scopo nello Spectrum sono 
riservati 168 byte (21*8) nella RAM, 
piu precisamente gli utlimi 168 byte fi- 
sicamente presenti. Stante la differen- 
te capacità della memoria ad accesso 
casuale nelle due versioni di questa 
macchina, troveremo che nel 16K so- 
no a questo scopo riservati i bytes del- 
la locazione 32600 alla 32767, mentre 
nel 48K i butes in questione occupano 
gli indirizzi da 65368 a 65535. All’ac- 
censione questi bytes contengono i va- 
lori numeri delle prime 21 lettere 
dell’alfabeto (inglese): se entrare in 
modo grafico (CAPS SHIFT e 9) e pre- 
mete i tasti A — U vedrete apparire sul- 
lo schermo le corrispondenti lettere 
maiuscole. Tuttavia il contenuto di 
queste locazioni può essre modificato 
dall'utente permettendo la rappresen- 
tazione di un qualsiasi simbolo grafi- 
co. Supponendo di avere già trovato 
gli 8 codici numerici relativi ad un sim- 
bolo grafico idoneo ai nostri scopi, po- 
tremmo attraverso l'istruzione POKE 
collocare tali valori nelle prime 8 loca- 
zione di questa area, associando il sim- 
bolo al tasto ‘A’ nel seguente modo: 
(Es. riferito al 16K) 


POKE 32600, numero 
POKE 32601, numero 
POKE 32602, numero 
ecc. fino a 

POKE 32607, numero 


Infatti POKE permette di ‘forzare’ un 
byte e di fargli assumere un qualsiasi 
valore compreso tra 0 e 255, indipen- 
dentemente dal valore che esso conte- 
neva. Entrando in modo grafico (pre- 
mendo CAPS SHIFT e 9 simultanea- 
mente) e, quindi premendo il tasto ‘A’, 
vedremo realizzato sullo schermo il 
simbolo da noi costruito. 

Operare in questo modo presenta tut- 
tavia alcuni inconvenienti. Innanzitut- 
to si tratta di un procedimento piutto- 
sot lungo: infatti dovremo calcolare le 
locazioni in cui collocare i valori in re- 
lazione ai differenti tasti cui lo voglia- 
mo associare ed inoltre dovremo scri- 
vere le 8 istruzioni necessarie (gli 8 
POKE), e questo per ogni carattere da 
noi desiderato. Per migliorare tale pro- 
cedura sarà sufficiente predisporre una 
linea di DATA, composta da 8 dati, per 


ogni simbolo grafico e realizzare quin- 
di un ciclo FOR... NEXT che legga tali 
dati e li collochi nelle locazioni deside- 
rate: 


FORn=0T07 

READ dato 

POKE 32600 + n, dato 

NEXT n 

DATA 0,12,60,255,1,40,190,81 


(i dati sono del tutto casuali) 


In questo loop grazie alla variabile n ad 
ogni passaggio la locazione considera- 
ta si incrementa di. 1, caricando il nu- 
mero ad essa relativo. 

Anche in questo caso si manifesta tut- 
tavia la necessità di calcolare le loca- 
zioni interessate al procedimento in re- 
lazione al particolare tasto cui esse so- 
no associate: così abbiamo infatti as- 
sociato un simbolo grafico al tasto ‘A’, 
mentre per associarlo al tasto ‘R’ do- 
vremmo calcolare gli indirizzi ad esso 
relativi. Inoltre così facendo i listati per 
il 16 e il 48K perderebbero la loro com- 
patibilità poiché nelle due macchine 
diverse sono le aree RAM riservate agli 
UDG (a proposito: tale sigla significa 
caratteri grafici definibili dall'utente — 
User-Defined Graphics). Per scavalcare 
tali problemi è necessario ricorrere al- 
la funzione USR. Questa è una funzio- 
ne che, applicata ad una stringa com- 
posta da una lettera da A ad U, ritorna 
l'indirizzo del primo byte degli otto cui 
la lettera è associata. Ad esempio se 
inserite come comando immediato: 


PRINT USR"“a” 


otterrete 32600 nel 16K, 
65368 nel 48K. 


Quindi l'istruzione 


oppure 


POKE USR “a”, numero 
è del tutto equivalente a 


POKE 32600, numero nel 16K, ed in- 
vece a 


POKE 65368, numero nel 48K 

facendo così salva la compatibilità 
dell'operazione nelle due versioni del- 
lo Spectrum. Sarà dunque sufficiente 
sostituire nel loop di cui sopra la linea 
del comando POKE con una del tipo: 


POKE USR “a” + n, dato 


Inoltre per associare il simbolo in que- 
stione a una qualsiasi lettera (A-U) ba- 
sterà sostituire la stringa “a” con una 
contenente la lettera desiderata, elimi- 
nando così ogni noioso calcolo. Il pro- 
cedimento in questione è particolar- 
mente utile in caso dobbiate definire, 
come di norma avviene, diversi carat- 
teri grafici. In questo caso il loop che 
carica in memoria i codici numerici 
dovrà essere nidificato in un altro che 
tenga conto del numero di caratteri da 
definire. Un esempio classico è: 


FOR f = 1T0 3 

READ p$ 

FORn=0T07 

READ dato 

POKE USR p$ + n, dato 

NEXT n 

NEXT f 

DATA “a”,11,25,255,0,0,0,133,14 
DATA ‘“g”,0,0,100,98,76,45,254,98 
DATa ‘“t”,13,14,56,199,193,1,0,1 


Il loop esterno legge il primo dato 
stringa (“a”), mentre il loop interno 
legge uno ad uno i primi 8 dati numeri- 
ci e li carica nelle locazioni associate 
alla lettera A; poi il loop esterno legge 
la seconda stringa (‘‘g’’) ed il loop inter- 
no carica i byte associati alla lettera G; 
e così via. 

Il loop esterno può essere costruito in 
diverse forme alternative ma equiva- 
lenti in relazione alle diverse esigenze 
dell'utente. Ad esempio, se si devono 
definire 11 caratteri grafici e si intede 
associarli alle prime 11 lettere (A-K), si 
può far riferimento al codice decimale 
della lettera nel seguente modo: 
FOR f = 144 TO 151 


POKE USR CHR$ f + n, dato 
NEXT f 


evitando così di dover riportare all’ini- 
zio di ogni linea di DATA la lettera cui 
i dati stessi si riferiscono. 

Tale procedura non risulta invece effi- 
ciente nel caso si intendono associare i 
caratteri ad un insieme di lettere non 
legate da una relazione così lineare (ad 
esempio un gruppo di lettere quali a, 
bito 

Una volta definiti dei caratteri grafici, 
li potremo sfruttare nell’ambito di una 
programma utilizzando l'istruzione 
PRINT seguita da una stringa conte- 
nente le lettere associate ai simboli 
stessi. Se, per esempio, abbiamo defi- 
nito un omino in corrispondenza del 
tasto ‘S' e lo vogliamo imprimere al 
centro dello schermo, basterà inserire 
nel listato una linea così: 


PRINT AT 11,15; “S” 

La stringa deve però essere necessaria- 
mente battuta in modo grafico, vale a 
dire che dopo aver aperto gli apici do- 
vremo premere il tasto CAPS SHIFT e 
il tasto 9: subito il cursore dalla stato 
‘L’ passerà allo stato grafico ‘G’. Pre- 
mendo il tasto ‘S’ identificheremo il 
carattere da rappresentare, quindi ri- 
premendo il tasto 9 potremo chiudere 
gli apici. Quando nel corso dell’esecu- 
zione del programma si giungerà alla 
linea della PRINT, vedremo apparire 
sullo schermo il nostro omino secondo 
le specifiche da noi caricate in memo- 
ria. Inoltre prmendo ENTER vedremo 
che la lettera è stata sostituita anche 
nel listato dal simbolo grafico ad essa 
assegnando. Questa particolarità ci 
consente di verificare in una data posi- 
zione dello schermo il carattere giusto. 
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ced 


Per immagazzinare dei caratteri da noi 
definiti all’interno di un programma 
dovremo dunque realizzare i due loop 
atti a caricare i dati nelle locazioni di 
memoria ad essi destinate. E comun- 
que essenziale che, prima di essere 
stampati sullo schermo, i caratteri ven- 
gano caricati in memoria: la subrouti- 
ne di caricamento, costituita dai due 
loop, deve quindi essere attivata all’ini- 
zio del programma, eventualmente ri. 
chiamandola con una istruzione GO 
SUB. 

Segnaliamo comunque che, a causa 
dell'elevato numero di byte richiesti da 
ogni linea DATA, è in taluni casi op- 
portuno dividere il nostro progamma 
in due listati: il primo sarà destinato 
solo al caricamento dei caratteri grafi- 
ci; il secondo sarà invece il program- 
ma vero e proprio. Questa possibilità è 
realizzabile anche grazie al fatto che 
l'area destinata agli UDG è posta al di 
sopra di RAMTOP; con questo termine 
si indica la soglia massima di RAM di- 
sponibile per la programmazione BA- 
SIC. Tutto ciò che si trova al di sopra di 
tale soglia è protetto sia nel caso si ca- 
richi un nuovo programma (nel nostro 
caso il listato 2, cioé il nostro program- 
ma ‘vero’), sia nel caso si dia un co- 
mando NEW. Provate a definire un ca- 
rattere grafico, quindi battete NEW: 
entrando in modo grafico vedrete che 
il carattere è ancora in memoria, men- 
tre è sparito il loop con cui lo avevate 


definito. 

Quanto detto dovrebbe avervi suggeri- 
to una terza possibilità di caricamento 
degli UDG: una volta definiti nel solito 
modo è possibile salvarli su nastro con 
il comando immediato 


SAVE “nome” CODE USR “a”, 168 


dove “nome” va sostituito con qualsia- 
si nome (meno di 10 lettere) voi voglia- 
te. 

Quando vorrete caricare il vostro pro- 
gramma dovrete caricare con LOAD ‘’ 
CODE anche questi byte, ottenendo il 


BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 


ide) AR 
00000000 


Gli otto valori della tabella sottostante 
sono i codici numerici in notazione bi- 
naria e decimale che consentono la rap- 
presentazione sul video del carattere A 
maiuscolo. AI momento della accensio- 
ne dello Spectrum detti valori sono con- 
tenuti in otto locazioni consecutive a 
partire dalla 15880, nonché in altre ot- 
to a partire dalla 32600 (65368 nel 
48K). 

| primi 


otto indirizzi 


SF rlro-c0O 


fanno parte 


risultato di avere caratteri grafici senza 
avere il listato appesantito alla subrou- 
tine di caricamento. 

Sperando di aver reso più agevole l’ac- 
cesso al tema in questione all'utente 
insoddisfatto delle spiegazioni del ma- 
nuale, necessariamente rapide e moti- 
vo della vastità degli argomenti tratta- 
ti, rinviamo ad una prossima puntata 
l'esame di particolari problemi con- 
nessi alla creazione di caratteri grafici 
attraverso tecniche alternative, capaci 
di superare alcuni vincoli propri del 
procedimento qui mostrato. 


000000 0 (decimale) 
PET O e 60 (decimale) 
O00C0T0 <= 66 (decimale) 
00 00 10°, 66 (decimale) 
bI11TO = 126 (decimale) 
BO0010 -— 66 (decimale) 
WO001.0. 66 (decimale) 
000000 0 (decimale) 


dell’area ROM in cui è immagazzinato 
il set di caratteri residenti, e quindi il 
loro contenuto non può essere modifi- 
cato. 

Gli altri otto bytes fanno invece parte 
della sezione RAM destinata a contene- 
re gli UDG: queste locazioni sono ac- 
cessibili all'utente e quindi il loro con- 
tenuto può essere modificato così da 
realizzare caratteri grafici personaliz- 
zati. 


Quando il computer parla il linguaggio delle immagini 


La computer grafica rappresenta un campo di 
applicazione dell'informatica relativamente 
nuovo, ma suscettibile di imprevedibili 


sviluppi. Questo volume, nato in 


collaborazione con alcune delle più 
specializzate istituzioni del settore, esamina 
tutte le possibilità di questa scienza nuova e 
affascinante: dall'animazione cinematografica 
e televisiva ai businnes graphics; dalla 


Mauro Salvemini 


progettazione in architettura a quella in 
elettronica e in meccanica; dalla mappazione 
alla manipolazione tridimensionale delle 


immagini... Realizzata in Modo da permettere 


COMPUTER 


GRAFICA 


176 pagine. Lire 29.000 
Codice 519 P 


un rapido, ma esauriente approccio 
all'argomento, l’opera si rivolge a quanti 
(lettori-utenti) siano alla ricerca dei necessari 
chiarimenti per una corretta e proficua 
utilizzazione delle tecniche di Computer grafica. 


a cura di 
Lucio Bragagnolo 


Tower of Evil 


Avete il coraggio di avventurarvi 
nella torre del male? 


"2 Vrirni gioco si inserisce nel filone, 
tanto per fare un nome, di Atic 
Atac: una rischiosissima ricerca all’in- 


terno di un castello - nel nostro caso 
una torre - per trovare qualche cosa (i 
tre pezzi della chiave che consente di 
aprire il portone e di uscire dal castel- 
lo, nell'esempio che abbiamo appena 
fatto - lo sapevate?): in questo caso, ci 
caliamo nei panni di Andros, eroe cac- 
ciato dalla corte di re Salimos e con- 
dannato a non fare mai più ritorno fino 
a che non avrà recuperato il tesoro del 
re, trafugato dal malvagio Negroman- 
te. L'unico suo aiuto è un incantesimo 
generosamente elargitogli dal mago di 


corte, che gli consentirà di scagliare 
palle di fuoco dall le punte delle dita. 
All’interno della Torre del Male sono 
sparsi i nove tesori da recuperare, più 
le chiavi che permettono il passaggio 
al livello successivo. Ovviamente non 
è tutto qui: le varie stanze della torre 
sono popolate dai servi del Negroman- 
te, che faranno del loro meglio per 
complicare le cose. 

I livelli da superare sono cinque, e non 
sono affatto facili, anche perché i teso- 
ri conquistati saranno al sicuro sola- 
mente una volta messi nel baule che 
appare nella stanza di partenza, al pri- 
mo piano, obbligando Andros a conti- 
nui andirivieni tra un piano e l’altro. 
Ogni volta infatti che il nostro eroe 
perderà una vita, tutti i tesori in quel 
momento in suo possesso verranno 
persi e sarenno nuovamente da recu- 
perare. Le vite a disposizione sono cin- 
que ma... non bastano proprio! Oltre 
agli infortuni derivati da incapacità o 
distrazione capita spessissimo di veni- 
re colpiti praticamente a tradimento 
nel passaggio tra una stanza e l’altra; 
oltretutto per passare da un livello 
all’altro occorre superare un insidiosis- 
simo corridoio di fuoco interrotto più 
volte da pozze di lava bollente, che oc- 
corre superare con balzi di discreta 
precisione, pena la morte per liquefa- 
zione rapida (uno dei piccoli ma grade- 


voli effetti speciali che il programma- 
tore ha inserito, pur nel contesto di 
una grafica piuttosto spartana). 

Il gioco è praticamente tutto qui, basa- 
to più sulla velocità e sulla precisione 
di chi gioca piuttosto che sulla spetta- 
colarità della grafica (comunque ade- 
guata) o sulla complessità del mecca- 
nismo di gioco. 

Non crediate però che Tower of Evil 
sia null'altro che un comune “spara e 
fuggi’: senza un pizzico di capacità 
strategiche i vostri pur meritevoli sfor- 
zi non verranno mai premiati in misura 
adeguata. Occorre infatti in primo luo- 
go saper ottimizzare la spola tra i vari 
livelli e il forziere contenuto nel primo, 
per evitare viaggi inutili e rischiosi; in 
secondo luogo, bisogna saper girare il 
meno possibile per ogni piano restan- 
do contemporaneamente in ogni stan- 
za per il minor tempo possibile, perché 
il numero di “cattivi” presenti nel livel- 
lo in cui siete dipende dal vostro tem- 
po di permanenza e dal numero di ulte- 
riori passaggi in una stanza già prece- 
dentemente visitata. Un suggerimento: 
non abbiate paura di sprecare colpi, vi- 
sto che il fuoco continuo protegge en- 
tro certi limiti la vostra avanzata e, 
molte volte, vi salva da situazioni alle 
quali i vostri riflessi non avrebbero po- 
tuto in nessun caso rispondere in tem- 
po utile. Cercate anche di essere veloci 
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- più tempo vi fermate e più rischi cor- 
rete; se proprio dovete fermarvi, mai 
farlo vicino a una porta! 

Un accenno, infine, alla confezione, di- 
scretamente elegante e pratica, e alla 
documentazione, dettagliatissima ed 
esauriente. 

Non vi pentirete certo dell'acquisto di 
Tower of Evil: è un gioco che saprà im- 
pegnarvi al massimo delle vostre pos- 
sibilità, senza stancare od annoiarvi. 


Volcanic Planet 


riuscirete ad avere ragione dei 
perfidi Zerans? 


Pret csi =] 


L' | Home Computer Software 


State per calarvi nei panni di un sabo- 
tatore, incaricato di addentrarvi nelle vi- 
scere del pianeta Zeras, abitato dai mal- 
vagi Zerans, per minarne il centro (che 
— non sembrano molto furbi, questi 
alieni — poggia direttamente sopra un 
immane vulcano) e provocare in questo 
modo l’inondazione di un oceano di la- 
va che spazzi via per sempre il pianeta 
stesso insieme ai suoi abitanti. 

Per compiere la missione, partite dalla 
grande metropoli sotterranea che sor- 
ge su Zeras e, forniti di tutto l’occorren- 
te — ossigeno, sistema di mantenimen- 
to, energia e armamento, quest'ultimo 
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consistente in un micidiale blaster — vi 
introducete nella città. Gli Zerans non 
presteranno molta attenzione all’intru- 
so, almeno inizialmente. 

In alto a destra potete vedere una map- 
pa, forse un po' piccola rispetto al ne- 
cessario, del livello in cui vi trovate. La 
vostra posizione è in essa sengata dal 
lampeggiare di un cursore color magen- 
ta; sotto la mappa si trovano invece gli 
indicatori dell'efficienza delle vostre ap- 
parecchiature, display (cioè la capaci- 
tà di evidenziare la vostra posizione sul- 
la mappa generale), bio-system, energia 
e schermo di protezione. Quando que- 
st'ultimo si troverà a zero, vi troverete 
pericolosamente esposti ai colpi degli 
Zerans, e basterà che uno qualsiasi de- 
gli altri indicatori venga ugualmente az- 
zerato per provocare la fine della mis- 
sione. Il resto dello schermo mostra la 
vostra avventura vista dall'alto, ingran- 
dendo la zona coperta dal cursore sul- 
la mappa. 

La prima cosa che dovete fare è cerca- 
re l'ascensore che vi possa portare la 
piano inferiore. Gli ascensori da cerca- 
re saranno uno per piano, in quanto essi 
fanno la spola continuamente tra un 
piano e un altro: saprete di essere nel- 
le vicinanze di uno di essi osservando 
il cursore sulla mappa diventare di co- 
lor ciano (guardate sulla tastiera dello 
Spectrum se non conoscere questo ter- 
mine, più precisamente il tasto “5’’). Non 
c'é modo di sapere se l'ascensore che 
avete trovato sale o scende: l’unico si- 
stema è provare, verificando l’esito del 
vostro tentativo su un indicatore di pro- 
fondità visibile in alto a sinistra. Tenen- 
do anche presente che entrare nel pri- 
mo ascensore, quello da cui partite, con- 
sente un reintegramento immediato 
delle voste risorse. | livelli da cui la cit- 
tà è composta variano da 3 a 15, a se- 
conda del livello di difficoltà prescelto, 
e dovrete quindi trovare altrettanti 
ascensori. Nel frattempo avrete già avu- 
to il vostro da fare: difatti la pianta di 
ogni livello è estremamente arzigogo- 
lata, e trovare un ascensore non è faci- 
le; in più, gli Zerans diventeranno sem- 
pre più intraprendenti e bellicosi, coin- 
volgendovi in terrificanti conflitti a fuo- 
co e costringendovi a volte a cimentar- 
vi in fughe degne dell’Harrison Ford di 
“Blade Runner” o dei “Predatori dell’Ar- 
ca perduta”. Tra l’altro, appena uno Ze- 
ran viene colpito gli altri aumentano 
vertiginosamente velocità e casualità 


del movimento per qualche istante, 
creandovi ulteriori difficoltà. Cosa man- 
ca?... Ah, si: nella città si trovano spar- 
si alcuni kit di riparazione, che in certi 
casi si dimostrano davvero utili. 
Arrivati finalmente sul fondo e localiz- 
zata la bocca del vulcano, non vi resta 
che depositare la bomba che avete por- 
tato con voi, e darvi alla fuga nel tenta- 
tivo di ritrovare l'uscita nel più breve 
tempo possibile. La bomba esploderà 
dopo 15 secondi, e la lava fusa comin- 
cerà ad invadere il sotterraneo, arro- 
stendo i malcapitati Zerans e, se non sa- 
rete stati abbastanza rapidi, anche voi. 
VOLCANIC PLANET è un gioco di azio- 
ne, che richiede però una buona dose 
di strategia, senza la quale siete desti- 
nati a vagare senza meta per i sotterra- 
nei fino alla morte per consumazione. 
E decisamente impegnativo da gioca- 
re con la tastiera, mentre con un joy- 
stick ci si trova sicuramente meglio: co- 
me tutti i prodotti Thorn Emi che ab- 
biamo visto finora, anche questo assi- 
cura la compatibilità con i joystick 
Kempston e Sinclair. Considerato an- 
che che il programma gira anche su 
Spectrum inespanso da 16K, si può par- 
lare di prodotto pervettamente propor- 
zionato alle aspettative, in grado di en- 
tusiasmare gli amanti del genere. 
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I programmi recensiti possono essere 
ordinati utilizzando il coupon a pag. 82 


a cura di Lucio Bragagnolo 


Spectrum tool 
programmi di utilità, grafica e 
gioco di Roberto Rigo 

ed. Gruppo Editoriale Jackson 


SPECTRUM 


G uardando la copertina del libro (per 
inciso, originale e simpatica) non 
è possibile non capirne il contenuto, an- 
che per chi è digiuno di inglese al pun- 
to di non comprendere il titolo. Si trat- 
ta di una raccolta di programmi costi- 
tuita per lo più da “strumenti” softwa- 
re, come dire da routine che arricchi- 
scono lo Spectrum di funzioni e possi- 
bilità normalmente disponibili su calco- 
latori più potenti e costosi, ma non im- 
plementate nella ROM del nostro “pic- 
colo” Sinclair. Vi è anche una sezione 
— di modeste dimensioni rispetto a 
quelle complessive del libro — dedica- 
ta ai giochi; ma è ben lungi dal risulta- 
re, superflua, e si dimostra utile sia per 
alleggerire il tono generalmente un po’ 
rigoroso dei desti sia per evidenziare la 
potenza ed efficacia di alcune delle rou- 
tine pubblicate nelle pagine preceden- 
ti. 


Qual'è, però, il punto che realmente in- 
teressa? Il fondo di routine se ne pub- 
blicano tante, e qualcuna in più o me- 
no non cambiano molto la situazione... 
in questo libro il “punto di forza” è da- 
to non solo dall’uso estesissimo del lin- 
guaggio macchina, ma soprattutto dal- 
l'estrema attenzione posta nel dotare 
ogni disassemblato di commenti final- 
mente comprensibili ed esaurienti per 
chiunque. Anche per gli inesperti, poi, 
c'è la possibilità di evitare di dover ad- 
dentrarsi nel codice macchina per (se 
proprio si tratti di pigrizia all'ennesima 
potenza) limitarsi a copiare semplice- 
mente i listati BASIC delle routine. In- 
fatti, ogni programma viene dapprima 
presentato in BASIC, completo del lin- 
guaggio macchina inserito sotto forma 
di linee DATA, per poi passare all’esa- 
me del l/m attraverso il disassemblato 
corredato, come abbiamo detto, di ric- 
chissime delucidazioni e spiegazioni. E 
stata scelta questa strada, dice l’autore 
nell’introduzione, allo scopo di riunire 
i pregi di queste due diverse modalità 
di programmazione pur compensando- 
ne i difetti (lento e di relativamente fa- 
cile comprensione il primo difficile da 
capire ma molto più efficiente e veloce 
il secondo). E questo è il filo condutto- 
re di tutto il libro attraverso le tre se- 
zioni di cui è composto. La prima di es- 
se è la più estesa e, se vogliamo, anche 
la più concreta, senza la quale non 
avrebbe avuto senso una pubblicazione. 
Intitolata “utilità”, comprende in senso 
stretto tutte le routine di cui abbiamo 
fino ad ora accennato, nella quasi tota- 
lità frutto di un buonissimo stile di raf- 
finatezze sicuramente “risparmiose” in 
termini di memoria occupata e efficien- 
tissime in sede di controlli e sicure, ma 
anche piuttosto ermetiche per i non 
esperti (sono già arrivate in redazione 
alcune telefonate di aspiranti program- 
matori in cerca di chiarimenti). In ogni 
caso, il livello medio del software pub- 
blicato si mantiene comunque alto, spe- 
cialmente quanto a sinteticità ed effi- 
cienza. 


Per parlare dei programmi presenti in 
questo “Spectrum tool” c'è solo l’imba- 
razzo della scelta, a partire dai “soliti” 
e pubblicati in mille salse (presentati pe- 
rò in quest'ambito con arricchimenti e 
maggiori opzioni) fino ad arrivare a ti- 
toli che per molti costituiranno se non 
una sorpresa almeno una piacevole no- 
vità. Si parte col più classico dei cari- 
catori di linguaggio macchina, qui pre- 
sentato in tre forme diverse, in grado di 
accettare codici esadecimali nel primo 
e decimali nel secondo e nel terzo; in 
quest’ultimo è però presente una opzio- 
ne di conversione in esadecimale dei 
numeri, che è poi possibile far rappre- 
sentare sotto forma di linee DATA au- 
togenerate. 

Anche questa routine, come quasi tut- 
te quelle presenti, risulta utile non so- 
lo da un punto di vista di mera utilizza- 
zione; il libro costiuisce un'ottima oc- 
casione per aumentare la propria com- 
prensione del funzionamento dello 
Spectrum in generale e, più in partico- 
lare, delle possibilità d’uso delle varia- 
bili di sistema. 

Proseguendo troviamo un programma 
per ottenere il LIST parziale di un de- 
terminato gruppo di linee di listato, un 
DELETE per la cancellazione di interi 
blocchi di programma (certe volte ve- 
ramente indispensabile) e una routine 
di rinumerazione, contenente la sotto- 
routine “Find Token”, scritta in codice 
macchina e avente la funzione di rin- 
tracciare qualsiasi istruzione che abbia 
come argomento un numero di linea a 
4 cifre — GO TO, GOSUB, RESTORE 
e così via — restituendone l'indirizzo in 
RAM al BASIC. Segue un'autentica de- 
lizia, reperibile a livello di home com- 
puter, crediamo, unicamente sul defun- 
to TI99 della Texas: vale a dire l’auto- 
number. Si prosegue con un paio di pro- 
grammi che faranno la gioia dei copia- 
tori folli: un lettore di header, un copia- 
tore di programmi per Spectrum 48K 
residente sopra RAMTOP (con versione 
residente sotto l’inizio dei programmi 
BASIC, per i possessori di Sinclair ine- 
spansi e per chi vuole riuscire a copia- 
re anche “The Hobbit”) e un paio di rou- 
tine che visualizzano sullo schermo l’in- 
tensità dei segnali ricevuti dalla prese 
EAR dello Spectrum. 

La sezione due è dedicata alla grafica 
e, oltre a contenere programmi di scroll 
pixel per pixel nelle quattro direzioni, 
fornisce frasi capovolte o... in diagona- 
le (!), un ingranditore di caratteri e un 
editor di caratteri grafici che è sicura- 
mente da annoverare tra i migliori pro- 
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grammi, sia del libro che in senso as- 
soluto. 

La terza sezione, dedicata ai giochi, ne 
comprende una decina, dallo standard 
tuttavia non eccezionale. Le uniche 
menzioni d'onore da dare sono per 
“Quasimodo”, arcade in cui bisogna 
soccorrere la bella principessa superan- 
do gli ostacoli che i minacciano sulla 
nostra strada (che è poi la merlatura di 
un castello) e “The Wall”, come dire uno 
degli antenati degli arcade, qui ripropo- 
sto con dovizia di mezzi grafici. 
Avrete già capito che il nostro giudizio 
globale è sostanzialmente positivo; le 
uniche riserve che vogliamo fare sono 
sui testi, farraginosi e, ci sembra di ca- 
pire, non troppo curati, e sull’opportu- 
nità, data la grande quantità di linguag- 
gio macchina presente, di fornire qual- 
che forma di controllo sull’inserimen- 
to dei codici (tipo ‘“checksum’’), del tut- 
to assente nel libro. Comunque, “Spec- 
trum tool” rimane un ottimo libro, con- 
sigliabile a chi ha già qualche esperien- 
za di programmazione. 


Il libro del Microdrive 


Spectrum 


di Ian Logan 
ed. JCE 


“In origine era lo Spectrum, un compu- 
ter tipicamente home, ed era adatto so- 
prattutto per giochini più o meno intel- 
ligenti...” Probabilmente potremmo co- 
minciare a raccontare così, in tono va- 
gamente biblico, l'evoluzione di quel 
calcolatore un po’ atipico che è in fon- 
do lo Spectrum. In effetti, la mancata 
— o meglio tardiva — introduzione in 
Italia di periferiche come l’interfaccia 1 
e i Microdrive, unita alla ancora attesa 
informatizzazione di massa (intesa co- 
me il saper usare il computer, e non co- 
me il semplice averne uno — e che dif- 
ferenza!), hanno portato a una sottova- 
lutazione delle possibilità di questa 
macchina, tanto che sono ancora mol. 
ti i padri di famiglia che pensano a un 
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calcolatore economico negli stessi ter- 
mini di un giocattolo costoso, opinio- 
ne ormai non più accettata in paesi co- 
me gli USA, o la Gran Bretagna stessa. 
Chiaramente uno Spectrum, anche do- 
tato di Microdrive e relativa interfaccia, 
farà sempre una notevole fatica a gesti- 
re una azienda: ma il punto è che, gra- 
zie a queste nuove periferiche, gli si 
aprono strade ben diverse (forse per cer- 
ti aspetti anche più soddisfacenti) di 
quella giocosa, beninteso bellissima e 
su cui non abbiamo niente da ridire, an- 
zi! 

Ora che non è più arduo come qualche 
tempo fa procurarsi un Microdrive, che 
vengano edite anche in Italia pubblica- 
zioni sull'argomento è cosa del tutto na- 
turale; e finalmente veniamo a questo 
“Libro del Microdrive Spectrum”, pre- 
sentato sul retro della copertina come 
qualcosa che “chiunque voglia aumen- 
tare le possibilità dello Spectrum oltre 
quelle che già conosce, deve leggere”. 
Una presentazione così roboante e am- 
biziosa come questa viene avallata dal 
nome dell'autore, lan Logan, che ha 
partecipato in qualità di osservatore alla 
stesura, negli stabilimenti Sinclair, de- 
gli 8K di ROM contenuti nell'interfaccia 
1. Non è certo cosa da poco (nel libro 
si accenna anche a notizie... non pub- 
blicabili causa richiesta esplicita della 
Sinclair Research: quanti autori sono 
documentati fino a questo punto?); e di- 
fatti dal libro traspare una conoscenza 
profondissima dell'hardware — ma so- 
prattutto del software — presente in 
queste ultime realizzazioni. 

Anche il titolo non deve ingannare: non 
stiamo parlando di un semplice libro sui 
Microdrive, ma di una trattazione com- 


: pleta di quello che viene a configurarsi 


grazie ai Microdrive stessi ma soprattut- 
to all'interfaccia 1, come un sistema 
molto più potente di quanto non fosse 
prima quello costituito dal solo Spec- 
trum, con le nuove possibilità di con- 
nessione in rete locale (pensare a scuo- 
le, biblioteche, club di amatori...) e di 
interfacciamento tramite la porta 
RS232, che rende possibile il dialogo 
con altri calcolatori, stampanti e peri- 
feriche di ogni tipo. 

A tutto questo sono dedicati i sei capi- 
toli in cui è diviso il libro, che peraltro 
presenta stranamente, dopo l’introdu- 
zione... l'indice analitico. 

Si parte da una descrizione generica (e 
da zero) di quello che viene chiamato 
“il sistema Spectrum esteso”, per poi 
trattarne i vari aspetti capitolo per ca- 
pitolo, più approfonditamente. Il primo 
elemento a essere analizzato è il BASIC 
esteso utilizzabile con l'interfaccia 1, di 
cui vengono fornite sintassi, spiegazio- 


ne ed applicazione di ogni comando, a 
tutti i livelli. Seguono poi i Microdrive, 
di cui viene detto se non tutto la gran- 
dissima parte, e di cui viene descritto 
anche il funzionamento vero e proprio 
(tecnica di registrazione, densità di in- 
formazione — 500 byte per pollice di 
nastro —, programmi per verificare lo 
stato dei singoli 180/190 settori in cui 
è diviso ogni nastro, e altro ancora); a 
proposito, sapevate che una POKE al- 
la locazione 23791 eseguita prima di 
dare il SAVE crea più copie dello stes- 
so file? 

Il capitolo 4 è dedicato alla rete locale, 
una opzione abbastanza misconosciu- 
ta ma che è in grado di offrire, se ben 
sfruttata, grandissime possibilità. Come 
al solito viene detto tutto, forse anche... 
troppo, visto che certi dettagli di fun- 
zionamento sono comprensibili solo da 
appassionati non solo di computer, ma 
anche di elettronica. Il linguaggio si 
mantiene comunque rigoroso e chiaro 
come all’inizio, e le maggiori difficoltà 
di comprensione sono controbilancia- 
te da un intelligente uso di schemi e ta- 
belle (peraltro presenti in gran numero 
per tutto il libro). Una trattazione det- 
tagliata anche se sintetica viene succes- 
sivamente fatta per l'interfaccia RS232 
vera e propria, descritta sia come hard- 
ware che come software. Infine, il capi- 
tolo 6, dedicato all'uso del linguaggio 
macchina, che farà la gioia di tutti i pro- 
grammatori esperti, messi come sono 
in grado di lavorare sulle routine della 
nuova ROM. Di esse vengono dati i co- 
dici esadecimali di accesso, e in più 
vengono descritte, in una sezione a par- 
te, le modalità per ottenere dei nuovi 
comandi da aggiungere a quelli stan- 
dard del BASIC Sinclair. Vengono an- 
che forniti i disassemblati di alcuni sem- 
plici esempi: per esempio, un coman- 
do LINE capace di tracciare un quadra- 
to intorno allo schermo, o un'istruzio- 
ne CIRCLE n che disegna una circonfe- 
renza di diametro n, o un BORDER b,i,p 
che definisce in un colpo solo INK, PA- 
PER e BORDER. Ed è possibile, per un 
abile programmatore, definire coman- 
di ancora più sofisticati e potenti... 
Non i pensi comunque che questo sia 
un libro adatto solo per “maghi del soft- 
ware”: le messe di informazioni in esso 
contenuta, per ogni livello di conoscen- 
za, è talmente alta che anche il più 
sprovveduto degli utenti Sinclair potrà 
utilizzarlo con piena soddisfazione, sen- 
za il timore di avere speso inutilmente 
dei soldi. Si intende che è meglio se si 
possiedono l'interfaccia 1 e almeno un 
Microdrive... ma può darsi che dopo 
aver terminato la lettura vi sia venuta 
voglia di comprare entrambi! 


pP rima di programmi e notizie, apria- 


mo questa puntata di ZX Club con + 


due annunci: 

Il SINCLAIR COMPUTER CLUB ha aper- 
to le iscrizioni (la quota è di quindici- 
mila lire) per l’anno 1984/85. L'iscrizio- 
ne dà diritto a ricevere software, il bol- 
lettino del club ed a partecipare a tutte 
le iniziative da esso promosse. Scrive- 
te a: 


Andrea Focardi 
via G. Di Vittorio 56 
50015 GRASSINA FI 


A tutti gli “spectromani”: ho fondato un 
fantastico club (il SINCLAIR SOFT- 
CLUB) senza fini di lucro. Esso si pro- 
pone di scambiare, comprare, vendere 
a prezzi irrisori (L. 1000 - mille! - a pro- 
gramma) software per Spectrum. Scri- 
vete o telefonate a: 


Marco Maffezzoli 
via Cà Nova 17 
37016 GARDA VR 
Tel. 045/7255097 


Quanto al software, cominciamo con 
una sobrutine per ZX81 di Roberto Pa- 
reschi, membro del SINCLAIR CLUB 
BOLOGNA e residente in via Ronco 16 
a Paullo (MI). Si tratta di una sobrutine 
di gestione di input, ma attenti! Non si 
tratta di un programma completo (se 
provate a farlo girare così com'é, non 
otterrete alcun risultato utile), ma va ag- 
giunto, appunto come sobrutine, al vo- 
stro programma di inserimento dati/ge- 
stione biblioteca/agenda telefonica/fa- 
te voi. L'indirizzo del club, per chi vuole 
inscriversi o richiedere informazioni, è: 


Sinclair Club Bologna 

Associazione di Utenti di microcompu- 
ters 

via Molino Vecchio 10/F 

40026 IMOLA BO 


Ecco le “istruzioni per l’uso”: 

occorre avere definito precedentemente 
nel vostro programma le variabili C$ (il 
carattere che desiderate usare come 
cursore) e CAMPO, che indica il nume- 
ro massimo di caratteri che vengono ac- 
cettati come input. 

La sobrutine viene mandata in esecuzio- 
ne con GOSUB 91000. 

All'uscita della sobrutine abbiamo in a$ 
il nostro input, che definiremo come 
VAL A$ se l’input è numerico. Si può 
posizionare il cursore dove si vuole in- 
serendo una istruzione PRINT AT N,N; 
prima di mandare in esecuzione la so- 
brutine. 

Sullo schermo comparirà un cursore 
lampeggiante nella posizione da voi in- 
dicata 

Per introdurre il dato crivetelo normal- 
mente e poi premete NEWLINE. Per 
cancellare c'é il solito RUBOUT, men- 
tre per avere uno spazio bisogna preme- 
re la freccia a destra. 

Questa routine è molto utile in pro- 


grammi dove viene preparata una ‘“ma- 
schera” in cui vengono introdotti i da- 
ti. Il cursore si posizionerà di volta in 
volta sul campo in cui verrà introdotto 
il dato, passando poi automaticamen- 
te al campo successivo (per effetto di un 
comando NEWLINE o del raggiungi 
mento dei limiti del campo) 


Durante l'esecuzione, viene usata la va- 
riabile di sistema DF-CC, che viene de- 
crementata dopo ogni stampa del cur- 
sore o di uno spazio. Per questo sono 
state usate alcune semplici istruzioni in 
linguaggio macchina, che dovranno es- 
sere alloggiate nella linea 1 del pro- 
gramma utilizzato, sotto forma di un'i- 
struzione REM seguita da dieci caratte- 
ri. Le dieci locazioni corrispondenti so- 
no quelle che vanno dalla 16514 alla 
16523 (il codice macchina viene richia- 
mato dai vari RAND USR 16514 presen- 
ti nella sobrutine); in esse dovranno es- 
sere inseriti tramite POKE e i seguenti 
valori (in decimale) 237, 75, 14, 64, 11, 
237, 67, 14, 64, 201. 


Subroutine di gestione input con scelta del cursore 
di Roberto Pareschi - Sinclair Club Bologna 


versione per ZX81 16K 
(listato 1) 


PRINT CÉ; 
3R98 ERRD USB! 16514 
9015 FOR K=l TO 19 
9020 LET R@=INKEY 
3025 IF R&<)"" THE 
3030 NEXT K 

9035 PRINT " "; È 
3040 RAND USR 18514 
3045 FOR Kai TO 10 
3950 LET R&=INKEY $$ 
3085 IF Ré<)"" THE 
d080 NEXT K 

2065 GOTO 900 

2070 PRINT " "; 

3075 RAND USR 18514 
3080 LET K=19 


N GOT. 9070 


N GOTO 9270 
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3085 NEXT_K 9135 RAND USR 15514 

3990 LET ReCODE R8 3159 IF X<a THEN GOTO 9100 

3098 RETURN 3155 LET A@sAB( TO X-1) 

3100 LET A@ia"" 3150 GOTO ®105 

3105 GOSUB 9002 3168 IF Rel118 THEN LET R&sCHRS 2 
3110 IF Ral118 THEN RETURN 3170 PRINT RS 

3115 IF Rc) 119 THEN GOTO 9165 3178 LET Af=AS+RE 

91208 LET X=eLEN (AE) 3189 IF LEN AS)=CAMPO THEN RETUR 
dla IF_X:9 THEN GOTO 9135 N 

130 GOTO 9150 3185 GOTO 9105 

Dal numero 5 (Marzo/Aprile 1984) del meraviglia (o almeno il nostro test, effet- Sinclair New Club 


bollettino bimestrale del SINCLAIR tuati sulle date della prima quindicina c/o GianPaolo Gentili 
NEW CLUB di Moncalieri pubblichiamo . di agosto 1984 e sulle date di nascita via Turati 10 


un programma proveniente nientepo- dell'intero corpo redazionale, non ha ri- 10024 MONCALIERI TO 
podimeno che dal... Brasile! Piuttosto velato errori). Tel. 011/6407195 
Ingegnoso, è cortissimo, ma funziona a Ecco l'indirizzo del club: 

Calendario 


di Carlos M. G. Weinstein - Sinclair New Club Moncalieri 
versione per ZX Spectrum 16K/48K 


(listato 2) 


10 LET as="144025036146" 105 LET, s=s+(7*(s=0))-(a-b*4=0 
20 PRINT "Dammi una data, nell AND (m=1 OR m=2)) 
a forma "'!""ggmmaa” (gi REOSPRINT AT 7,0p"Ek giorno: !"56@: 
ornomeseanno) " Pesca de di: **a 
30 INPUT d$ 120 PRINT AT 11,9; "DLMMGVS" 
40.:CLS 140 PRINT AT 12,1*s+8;"{G3}" 
SO LET A-VAL ds (O) Y50 PRINT AT 20,0;"Premi un tas 
BELET m=VAL d$(3°%006%4) to cer un'altra data" 


70 LET a=VAL d$(5 TO ) 


80 LET b=INT (a/4) 160 PAUSE 0 
90 LET x=a+tb+VAL aS(m)+d SGREOCLS 
100 LET s=x- (INT (x/7)*7) 180 GO TO 20 


(2) UNA RIVISTA 2a 
DEL GRUPPO EDITORIALE JACKSON 


x 


Se volete entrare in possesso di tut- 
te le ultime novità software per lo 
ZX Spectrum a prezzi irrisori (max 
L. 1000) scrivetemi, rispondo gra- 
tuitamente a tutti. 

Vito Bianco - via Palladio, 10 - 
20030 Lentate (MI) - Tel. 
0362/565102 


Vendo programmi per Spectrum 
16K/48K, corredati di istruzioni. 
Scrivere allegando bollo per elen- 
co 0 telefonando ore pasti a: 

Maurizio Leone - via Gaio Melisso, 
16 - 00175 ROMA - Tel. 06/766271 


Cambio software per ZX Spectrum 
vasto assortimento, novità inglesi. 
Rispondo a tutti, inviare vostra lista, 
io invierò la mia. 

Raffaele Maruca - via E. Toti, 27 - 
21047 Saronno (VA) - Tel. 
02/9606810 


Vendo cassette giochi a L. 4000 
(Spectrum 16K) e a L. 6000 (Spec- 
trum 48K). Oltre 100 titoli. Inviare 
francobollo per listino competo. 
Tra i titoli (16K): Jet Pac, Psst, 
Tranz Am, Pac Man. Per il 48K: Ant 
Attak, 4D ufo attack, ecc. 

Roberto Spina - C.so Italia, 304/F - 
74100 Taranto - Tel. 099/331231 


Cambio e vendo software per ZX 
Spectrum. Compro stampante ZX 
Printer. Telefonare dopo ottobre al- 
lo 0836/627114 

Francesco Mariano - via Liguria 27 
bis - 73013 Galatina (LE) - Tel. 
0836/627114 


Il GSINCLAIRCOMPUTERCLUB ha 
aperto le iscrizioni (L. 15.000) per 
l'anno 1984/85. L'iscrizione dà di- 
ritto a ricevere il bollettino, softwa- 
re ed a partecipare a tutte le inizia- 
tive promosse dal Club. Scrivere a: 
Andrea Facardi - via G. Di Vittorio, 
56 - 50015 Grassina (Fl) 


Cerco tastiera FD5 della FULLER in 
ottimo stato a un prezzo modico o 
se qualcuno sa dove trovarlo anche 
nuova. Inoltre vendo programmi 
per Spectrum 16k e 48K oppure 
scambio con altri programmi. Ven- 
do anche dei programmi per Com- 
modore CBM64, e VIC 20, oppure 
scambio con programmi per Spec- 
trum. Vendo libro “alla scoperta 
dello ZX Spectrum” + libro dei Mi- 
crodrive, e Interfaccial, + casset- 
ta Horizon, in Italiano a L. 30.000 
valore commerciale L. 80.000 
circa. 

Vendo anche Videogioco Leonardo 
GIG o HIMEX nuovo a L. 160.000, 
e 5 cassette intercambiabili. Vendo 
antifurto per auto a tasti era digita- 
le (senza sirena) adattabile a qual- 
siasi antifurto ha ben 700.000 com- 
binazioni a L. 40.000, valore reale 
è di L. 180.000. Telefonare ore 
serali: 

Valter Cacciolatto - via Doria, 21 - 
10042 Nichelino (TO) - Tel. 
011/6273563 


Vendo per ZX Spectrum program- 
mi tra i migliori da L. 3000 a L. 
5000. Chiedete la lista o telefonate 
ore pasti per informazioni a: 
Marco Rossi - via Cerro Maggiore - 
20027 Rescaldina (MI) - Tel. 
0331/57669 


Vendo, ma sopprattutto cambio 
software per Spectrum. Logicamen- 
te preferirei che qusto avenisse nel- 
la zona di Bologna ma non è neces- 
sariamente opportuno. 

Pasquale Molitierno - via Silvagni, 
17 - 40137 Bologna - Tel 343327 


Vendo numerosi programmi a prez- 
zi ridicoli, troppo bassi per essere 
pubblicati per Spectrum disponibi- 
li oltre 300 titoli 16K/48K in I/m. 
Scambio inoltre con software ed 
hardware di ogni tipo per detto 
computer. 

Rosario Di Modica - via Castelfidar- 
do, 37 - 97019 Vittoria (Ragusa) 


: Tel. 0932/983512 


Programmi originali per Spectrum 
16/48K su cassette Sony C 60. 
Cambio alla pari o vendo a L. 2000 
cadauno. Sconti per quantitativi. In- 
viate vs. lista o richiedere la mia af- 
francando risposta. 

Cruciani Alberto - Piazza Vittorio, 
138 - 00185 Roma - Tel. 06/737240 


Vendo Sinclair ZX Spectrum 48K 
+ amplificatore B.F + 21 cassette 
software 16/48K, il tutto a L. 
500.000. Rivolgersi a: 

Luca Fontana - via Garibaldi, 205/a 
Cornaredo (MI) - Tel. 02/9362410 


Vendo, cambio numerosi program- 
mi per ZX Spectrum 16K, giochi e 
utility, tra cui Jet pac, Tranz Am, 
Planetoids, Invaders, Poc Man, ecc. 
Inviare francobollo per lista. Prezzi 
stracciati. 

Paolo Galante - viale Madonna di 
Rosa, 7c - 33078 S. Vito al Tagl. 
(ZN) 


Cambio software per Spectrum. Ri- 
cerco corrsipondenti nelle varie cit- 
tà in cui esistano emittenti che tra- 
smettono software. 

Maurizio Monaldi - via Vittorio Mon- 
tiglio, 7 - 00168 Roma 


Vendo programmi per ZX Spec- 
trum oltre 100 testi (vari) scrivere ri- 
sposta a tuti. Prezzi ottimi. Avrete 
il listino completo. 

Rosario Vicari - Via Calatafini, 977 
90129 Palermo 


LOL 


Regalo decine di programmi per 
Spectrum in cambio di una stam- 
pante (ZX Printer, Alphacom 32, 
Seikosha GP50S). Eventualmente 
disponibile a L. 2500 l'uno. 
Marco Sivori - Barchetta, 18/9 - 
16162 Bolzaneto (GE) - Tel. 
010/403118 


Cambio Basicode 2, contro il solo 
rimborso delle spese invio copia 
manuale e del nastro di questo pro- 
tocollo che permette lo scambio di 
programmi (Basic) tra oltre 20 di- 
versi computer (Apple - Commodo- 
re - BBC - Sinclair - CP/M -Philips 
- TRS - Microprofessor, ecc.). 
Maurizio Monaldi - via Vittorio Bon- 
tiglio, 7 - 00168 Roma 


Vendo causa prematura fine mio 
ZX81, espansione memoria 16K, ta- 
stiera professionale racchiusa in 
mobile Teko, libri ‘66 program- 
mi...’ e “Imparate il basic con lo 
ZX81" oltre, naturalmente a moltis- 
simi programmi. 

Fabrizio Martano - via Don L. Stur- 
zo, 7 - 58100 Grosseto - Tel. 
0564/492806 


Agrigento e provincia utenti com- 
puters Sinclairs cercasi per scambi 
di software, idee ed eventuali fon- 
dazioni Sinclub. 

Giuseppe Taibi - via E. Duse, 34 - 
92100 Agrigento - Tel. 
71047/20768 


Vendo cambio + di 250 program- 
mi per ZX Spectrum al presso di L. 
2000 a programma, risposta 
assicurata. 

Luigi Faberi - via Campagnola, 3 - 
25079 Vobarno (BS) - Tel. 
0365/618388 


Vendo EXP 3845, una piccola inter- 
faccia Spectrum che ti consente di 
sperimentare e studiare l'hardware 
del computer. L. 29.000 in contras- 
segno. 

Severi Marino - Piazza Isei, 28 - 
47023 Cesena - Tel. 0547/20890 


Per ZX Spectrum disponiamo di ol- 
tre 600 titoli fra cui tutte le novità 
inglesi. Programmi sucassette sin- 
gole a L. 4000/5000 (doppia regi- 
strazione) o in sequenza su nastri di 
prima qualità a L. 20.000 per 6 pro- 
grammi a scelta. Richiedere gratui- 
tamente e senza impegno lista sem- 
pre aggiornata. 

G. Franco Posterli - via L. Ariosto, 
123 - 20099 Sesto S. Giovanni (MI) 
Tel. 02/2480163 


Vendo molti programmi per ZX 
Spectrum originali inglesi a prezzi 
bassi,. Inoltre vendo ZX81 1K con 
alimentatore, libro “66 pogrammi 
per ZX81” ed Epron, programma- 
ta con “Space Invaders” a L. 
100.000. Richiedere listino gratis. 
Francesco Ficcabrino - viale Trie- 
ste, 36 - 93100 Caltanisetta - Tel. 
0934/26045 


Compro software per ZX Spectrum 
qualsiasi listato o programma. In- 
viatemi le vostre liste, rispondo a 
tutti. Cambio inoltre stupendo gio- 
co elettronico della F1 con almeno 
10 programmi compresa cassetta. 
Scrivete a: 

Marco Gorin - C.so Italia, 57 - 13100 
Vercelli 


Compro, vendo, cambio software 
per ZX Spectrum, Apple, C64, VIC 
20, TI 99/4A: Richiedre lista gratui- 
ta a: 

Sergio Remondino - via De Gaspe- 
ri, 3 - 10015 Ivrea (TO) 


Vendo programmi per ZX Spec- 
trum 16/48K a sole L. 2000 cadau- 
no. Richiedere elenco scrivendo e 
inviando bollo per risposta e telefo- 
nare ore ufficio a: 

Pietro Melissari - via Stazione, 4 - 
18011 Arma di Taggia (IM) - Tel. 
0184/448388 


Cerco possessori di ZX Spectrum, 
per cambio programmi. Inviare li- 
sta, risposta assicurata. 

Andrea Moggio - via N. Sauro, 15 
- 13051 Biella (VC) - Tel. 015/32644 


Vendo ZX Spectrum 16 + manua- 
le italiano + ‘77 programmi per lo 
Spectrum” + “Programmazione 
dello Spectrum” + 85 listati + 40 
programmi in cassetta, tutto a L. 
300.000 + spese postali. Telefona- 
re ore pasti a: 

Luca Minuder - via Kennedy, 11 - 
31015 Conegliano (TV) - Tel. 
0438/342272 


Cambio, vendo, compro program- 
mi per ZX Spectrum di ogni gene- 
re. Inviare propria lista risposta as- 
sicurata oltre 200 programmi 
Giulio Guidotti - Via del Popolo, 5A 
56036 Palaia (PI) - Tel. 
0578/622178 


Cambio programmi per ZX Spec- 
trum 16-48K. Inoltre cambio anche 
programmi per Commodore CBM 
64. | migliori sulla piazza! 

Stefano Goldoni - Via Pascal 33/2 
- 4110 Modena - Tel. 059/242849 


Vendo cambio software utilità, ap- 
plicativo e video games per ZX 
Spectrum. tra i titoli hurg (gnerato- 
re videogiochi) ant attack, jet set 
willy, printer set, personale finance, 
magazzino. Ma anche molti molti 
altri per elenco. Scrivere a: 
ALberto Catania - Vie Vercelli , 21 
10036 Settimo T.SE (TO) - Tel. 
8009478 


Costruisco interfaccia programma- 
bile per joystick, compatibile con 
qualsiasi gioco per ZX Spectrum- 
ZX81. Possibilità di collegamento 
per uno o due joystick. Prezzi più 
che modici!!! Per informazioni tele- 
fonare a: 

Fulvio Dumini - Via G. Pescetti, 79 - 
50127 Firenze - Tel. 055/410823 
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SUPERSINC LIBRI SPECTRUM TooL cod. AJAK022 L. 13.500 


IL LIBRO DEL MICRODRIVE SPECTRUM 


CEDOLA DI ORDINAZIONE - LIBRI cod. AJACCO04 L. 14.400 


da compilare e spedire in busta chiusa a 
J.soft - Via Rosellini, 12 - 20124 Milano - Tel. 6888228 


Ordino i seguenti libri per un importo totale di L.. .................................- + L. 2.000 


come contributo fisso per spese di spedizione 


GILERA COIrnircnsiaalazaaa COd. .....- crea 
7. SE OR eni SPERA belin Golia 


Contanti allegati 


Se richiesta fattura: 
Cod. F. e P. Iva 


Ho spedito l'importo a mezzo vaglia postale 


Ho versato l’importo sul ccp. n° 19445204 intestato a J.soft - Milano 


Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo per Peri soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
i soci in Italia) ccp) 


SUPERSINC SOFTWARE tower or EviL cod. DTMSO2 L. 16.000 
VOLCANIC PLANET cod. DTMSO3 L. 16.000 

CEDOLA DI ORDINAZIONE - CASSETTE 

da compilare e spedire in busta chiusa a 

J.soft - Via Rosellini, 12 - 20124 Milano - Tel. 6888228 


Ordino le seguenti cassette per un importo totale di L............................... + L. 2.000 


come contributo fisso per spese di spedizione 
Bodini Oi aaa Cod..imagszioni.inza..i 


Cod:ibirva ieri Moglia cca 210, SET RAS RO PURIM E 


Se richiesta fattura: 
Cod. F.e P. iva 


Ho spedito l’importo a mezzo vaglia postale 
Ho versato l'importo sul ccp. n° 19445204 intestato a J.soft - Milano 


i . ; Per i soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
Pagherò in contrassegno al postino al ricevimento delle cassette ccp) 


SUPERSINC La rubrica INPUT/OUTPUT è gratuita ed aperta a SUPERSINC e bello, però... (ovvero suggerimenti, 


tutti i lettori. Chi desidera comprare, vendere o i iti ichi ià : 
INPUT/OUTPUT cambiare hardware o software può inviare il ta- idee, critiche, richieste e tutto ciò che vi passa per 


gliando a J.soft - Via Rosellini, 12 - 20124 MILANO la testa). 


COMPRO VENDO CAMBIO 
ZX80 ZX81 ZX Spectrum PERIF. SOFTWARE 


GP50A E GP50S 


le piccole stampanti per 
tutti 1 computer 
REBIT 


] i si \ COMPUTER 
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Piccole e com- sparati a 
patte dalle pre- costi in- 
stazioni grandi e credibil- 
generose, le mente 
GP50A e GP50S sorpren- 
sono realizzate i denti. 
con standard pro- Particolare 


attenzione merita la 


fessionali a misura - 
GP50S, stampante direttamente inter- 


di Personal e Home 


computer e si impongono qualé soluzio- facciata verso i computer Sinclair ZX81 e 

ne ottimale per gli usi hobbystici più di- Spectrum. 

Caratteristiche: e Caratterizzazione: 12 cpi e relativo espanso 

e Interfacce: parallela centronics (interfaccia 

e Stampante ad impatto a matrice di punti Sinclair versione GP50S) 
da 46 colonne (32 colonne versione e Alimentazione carta a frizione (largh. carta 
GP50S) fino a 5”) 

e Matrice di stampa 5x8 (7x7 versione e Stampa 1 originale e 1 copia 
GP50S) e Set di 96 caratteri ASCII 

e Percorso di stampa monodirezionale (da e Consumo 11W (standby) o 17W (stampa) 
sinistra a destra) e Livello di rumore inferiore a 60 dB 

e Capacità grafiche con indirizzamento del e Durata di vita testa: 30 milioni di caratteri 
singolo dot e Peso 1,5 KG 

e Possibilità di ripetizione automatica di un e Dimensioni: 215 (prof.) x 250 (largh.) x 85 
carattere grafico (alt.) mm. 

e Velocità 40 caratteri/secondo (35 caratteri/ @ Nastro nero (standard); optionals: rosso, 


secondo versione GP50S) arancio, verde, blu, viola e marrone. 


PERSONAL COMPUTER: 
le prime, le migliori! 


PERSONAL SOFTWARE 


L'unica che presenta software 

per tutti i personal: 

Commodore, Apple, Sinclair, T.I., HP, 
Sharp, Sega, Olivetti, ecc. 
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